Delphi: Alles markieren mit STRG+A in Memo

Dieses Verhalten zeigt ein Memo-Feld erst, wenn du in das OnKeyDown Event des Memos folgenden Code hinzufügst:

procedure TForm1.Memo1KeyDown(Sender: TObject; 
var Key: Word; Shift: TShiftState);
begin           
  if ((ssCtrl in Shift) and (Key = 65)) then 
    TMemo(Sender).SelectAll;  //alles markieren
end;

Damit wird bei jedem Tastendruck geschaut, ob die STRG-Taste und gleichzeitig das A gedrückt ist. Die 65 ist der Code von A, den du auch mit ord(A) abfragen kannst. 
07.12.2011 um 19:16

Und hier noch ein kleiner anderer Code, der das selbe macht.

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then begin
    (Sender as TMemo).SelectAll;
    Key := #0;
  end;
end;

Aus der englischen Askingbox.
10.03.2019 um 17:41