Delphi Tastenkombination [Strg]+[A] für SelectAll

Thema durchsuchen

Ansicht

Themen-Optionen

Tastenkombination [Strg]+[A] für SelectAll

Ein Thema von Mamphil · begonnen am 3. Okt 2004 · letzter Beitrag vom 3. Okt 2004

Vorheriger Beitrag

Nächster Beitrag

Mamphil

Registriert seit: 17. Jul 2004
Ort: Garching b. München
149 Beiträge

Delphi 7 Professional

Tastenkombination [Strg]+[A] für SelectAll

3. Okt 2004, 13:12

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...

markieren

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;