OnClick Ereignis nur einmal auslösen

[Aviator]

Zitat von Ritsch:

Einfach die Zuweisung auf das Event löschen.

Code:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.OnClick:= nil;
  Edit1.Text := '';
end;

Das wäre dann aber sehr radikal. Spätestes dann wenn er die Aktion wieder ausführen wollte würde er sich dann wundern wieso nichts mehr funktioniert. Nichtmal der Debugger würde mehr am Event anhalten. Da ist eine Variable dann 1000 Mal besser.

Die kann dann bei einer bestimmten Aktion auch einfach wieder zurückgesetzt werden und dann klappt auch das Löschen des Inhaltes wieder.