Memo leer bei Klick

[himitsu]

So reicht es nicht?

Delphi-Quellcode:

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
  Memo1.Clear;
end;

Nja, es kann sein, daß man noch irgendwas initialisieren mußte, damit sowas wie Strg+A von alleine ging.

Ansonsten im OnKeyDown

Delphi-Quellcode:

procedure TfrmMain.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = Ord('A')) then begin
    (Sender as TCustomMemo).SelectAll;
    Key := 0;
  end;
end;