OnClick Ereignis nur einmal auslösen
Hallo Leute,
ich habe ein Edit, mit einem Text drin, in welches der Benutzer einige Daten eintragen soll. Dazu benutze ich:
Code:
Allerdings lösche ich so jedes Mal den Text im Edit, möchte dies allerdings nur beim ersten Mal machen.
procedure TForm1.Edit1Click(Sender: TObject);
begin Edit1.Text := ''; end; Ist es möglich eine Art Edit1.OnFirstClick zu programmieren ? |
AW: OnClick Ereignis nur einmal auslösen
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).
|
AW: OnClick Ereignis nur einmal auslösen
Einfach die Zuweisung auf das Event löschen.
Code:
procedure TForm1.Edit1Click(Sender: TObject);
begin Edit1.OnClick:= nil; Edit1.Text := ''; end; |
AW: OnClick Ereignis nur einmal auslösen
Okay danke dir CCRDude, klappt perfekt. :)
|
AW: OnClick Ereignis nur einmal auslösen
Zitat:
Die kann dann bei einer bestimmten Aktion auch einfach wieder zurückgesetzt werden und dann klappt auch das Löschen des Inhaltes wieder. :stupid: |
AW: OnClick Ereignis nur einmal auslösen
Warum, wenn es nur einmal ausgeführt werden soll?
Im anderen Fall würde ich eher das Control inaktivieren. |
AW: OnClick Ereignis nur einmal auslösen
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 |
AW: OnClick Ereignis nur einmal auslösen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz