Ctrl-A (select all) für DBMemo

[Temi00]

Hallo Forum,
wie kann ich einem DBMemo einen Hot-Key für select all verpassen?

Danke
temi

[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;

[p80286]

Zitat von himitsu:

Eigentlich sollte diese Standardfunktionalität vorhanden sein, wenn irgendein OLE-Zeugs ordentlich initialisiert ist, was die VCL eigentlich machen sollte.

Zumindestens das TMemo kann das auch nicht.

Gruß
K-H