"Alles markieren" mit 2 Memos

[Christian Seehase]

Moin Marcel,

die Eigenschaft KeyPreview des Formulares auf true setzen, und dann im OnKeyUp-Event des Formulares:

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ActiveControl.ClassType <> TMemo) then Exit;
  if not (Shift = [ssCtrl]) then Exit;
  if Key = Ord('A') then (ActiveControl as TMemo).SelectAll;
end;