Memo leer bei Klick

[hathor]

Wenn man auf die Rechtsklick-Rückgängig-Funktion nicht verzichten will,
ist folgender Code besser:

Delphi-Quellcode:

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Memo1.SetFocus;
Memo1.SelectAll;
Application.ProcessMessages; //muss sein!!!
Memo1.ClearSelection;
end;