OnClick Ereignis nur einmal auslösen

[Luca Haas]

Hallo Leute,
ich habe ein Edit, mit einem Text drin, in welches der Benutzer einige Daten eintragen soll.
Dazu benutze ich:

Code:

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

Allerdings lösche ich so jedes Mal den Text im Edit, möchte dies allerdings nur beim ersten Mal machen.
Ist es möglich eine Art Edit1.OnFirstClick zu programmieren ?

[CCRDude]

Ja, mit einer bool'schen Variable, als Feld der Form (FEditClearedOnce: boolean), die im FormCreate initialisiert (FEditClearedOnce := false) und in Deinem Event (if not FEditClearedOnce) abgefragt und umgesetzt wird (FEditClearedOnce := true).

[Ritsch]

Einfach die Zuweisung auf das Event löschen.

Code:

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

[Luca Haas]

Okay danke dir CCRDude, klappt perfekt.

[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.

[mkinzler]

Warum, wenn es nur einmal ausgeführt werden soll?
Im anderen Fall würde ich eher das Control inaktivieren.

[Sherlock]

Ich vermute, es geht bei dem Edit und dem Text, der vor der Benutzerinteraktion drin steht darum sowas wie TEdit.TextPrompt nachzubauen. Falls ja...lass es und nutze die entsprechende Property. Falls nein, schweige ich wieder.

Sherlock

[TiGü]

Zitat von Sherlock:

Ich vermute, es geht bei dem Edit und dem Text, der vor der Benutzerinteraktion drin steht darum sowas wie TEdit.TextPrompt nachzubauen. Falls ja...lass es und nutze die entsprechende Property. Falls nein, schweige ich wieder.

Bzw. TEdit.TextHint in der VCL.