Eigentlich sollte diese Standardfunktionalität vorhanden sein, wenn irgendein
OLE-Zeugs ordentlich initialisiert ist, was die
VCL eigentlich machen sollte.
Aber im Notfall könntest du es ja auch selber machen.
Delphi-Quellcode:
procedure TForm1.DBMemo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = Ord('A')) and (Shift = [ssCtrl]) then begin
(Sender as TCustomEdit).SelectAll; // für alle Nachfahren, also auch TEdit, TMemo, TDBEdit, TDBMemo usw. (natürlich wäre auch DBMemo1.SelectAll; gegangen)
Key = 0;
end;
end;