Hi!
Ich möchte, dass der gesamte Text eines TMemo durch die Tastenkombination [Strg]+[A] markiert wird. Bisher habe ich diesen Code, der aber leider nicht funktioniert - die Suchfunktion hat mir leider auch nicht geholfen...
Delphi-Quellcode:
procedure TWinQuery.queryStatementKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = Ord('a')) and (ssCtrl in Shift) then
begin
Key := 0;
MyTForm.SelectAll;
end;
end;
Hat jemand eine Idee?
Danke für die Hilfe!
Mamphil