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

[Mamphil]

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

[Ultimator]

Probier mal, die Eigenschaft KeyPreview im FormCreate auf true zu setzen

[Dax]

Füge diesen Code bei TMemo.OnKeyDown ein, dann müsste es gehen.

[Luckie]

Du musst ein großes "A" nehmen:

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('A')) and (ssCtrl in Shift) then
  begin
    Memo1.SelectAll;
  end;
end;

[Mamphil]

Hi!

Zitat:

Zitat von Luckie

Du musst ein großes "A" nehmen:

Danke - genau das ist die Lösung gewesen. Die Funktion war schon im OnKeyDown drin, genauso war KeyPreview schon auf true gesetzt. Trotzdem danke für die Tipps!

Vielen Dank für eure schnellen Antworten!

Mamphil

[Mamphil]

Noch eine Ergänzung (wenn jemand diesen Beitrag über die Hilfe findet...):

Wenn man die Tastenkombination eingibt ertönt das "Standardton Warnsignal". Dieses bekommt man weg, wenn man die Zeile

Delphi-Quellcode:

PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);

ergänzt und die Variable Msg: TMsg; definiert.

Mamphil