Ctrl-A (select all) für DBMemo

[himitsu]

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;