Leeres Eingabefeld mit Standardwert füllen

[Jean312]

Ein Hallo an die DP-Gemeinde,
ich möchte Eingabefelder mit einem Standardwert füllen, wenn diese leer sind (z.B. Straßenname für das Eingabefeld "Straße"). Sobald das erste Zeichen in diesem Eingabefeld geschrieben wurde, soll dieser Standardwert verschwinden und wenn es leer ist wieder erscheinen.

Habe es mit Canvas.Textout versucht, dies löst aber eine Exception aus. Ich habe es im onCreate des Forms und im onChange des Eingabefeldes benutzt.
Hat jemand eine Idee, warum die Exception ausgelöst wird oder wie ich das realisieren kann?

Vielen Dank im Voraus.

[Perlsau]

1. Default-String in einer Variablen im Private-Abschnitt als Konstante festlegen: EditText_Nachname = 'hier Nachname eingeben';
2. Beim Programmstart Default-String zuweisen: Edit_Nachname.Text := EditText_Nachname;
3. In der Ereignisbehandlung OnEnter prüfen, ob der Text in Edit_Nachname dem Default-String entspricht.
4. Wenn ja, dann Edit_Nachname.Clear; ausführen, ansonsten den Text belassen.
5. In der Ereignisbehandlung OnExit prüfen, ob Edit_Nachname.Text leer ist.
6. Wenn ja, dann Default-String zuweisen: Edit_Nachname.Text := EditText_Nachname;

So würde zumindest ich das machen. Soll der Default-String erst verschwinden, wenn der Anwender Text eingibt, dann eben in OnKeyPress die Prüfung in Punkt 3 durchführen. OnKeyPress wird ausgelöst, bevor das gedrückte Zeichen ins Editfeld geschrieben wird. Daher kannst du in OnKeyPress prüfen, ob der String im Editfeld dem Defaultstring entspricht und diesen dann löschen, bevor das Zeichen geschrieben wird.

[Jean312]

Vielen Dank für die rasche Antwort.
Diese Methode hatte ich so ähnlich schon eingebunden.
Habe aber sehr viele Objekte dieser Art. Ich dachte mir, dass es eben mit dieser Art Textout auf ein ungefülltes Eingabefeld schneller geht.
Dann werde ich es eben wohl doch mit dem guten alten Stringvergleich machen müssen. 😕

[frankyboy1974]

hallo,

es gibt doch die Eigenschaft 'texthint' eines Tedit. Ich weiss nicht ab wann es diese Eigenschaft gibt, aber ich benutze diese schon seit Jahren.

mfg

[Perlsau]

Zitat von Jean312:

Habe aber sehr viele Objekte dieser Art. Ich dachte mir, dass es eben mit dieser Art Textout auf ein ungefülltes Eingabefeld schneller geht.

In diesem Fall würde es sich aus meiner Sicht lohnen, eine eigene Komponente von TEdit abzuleiten und diese Funktionalität dort bereitzustellen. Du brauchst dann ein weiteres Property (published, so daß es im OI bearbeitet werden kann), in das der Default-String eingegeben wird. Die entsprechenden Überprüfungen kannst du dann ebenfalls gleich im Komponenten-Code erledigen.

[Jean312]

Habe mir das auch schon überlegt, aber eben noch nie gemacht. Muss mal sehen, ob ich hier Einträge finden kann, wie man soetwas umsetzt. Danke für eure Tipps.

[haentschman]

Moin...

Zitat:

In diesem Fall würde es sich aus meiner Sicht lohnen, eine eigene Komponente von TEdit abzuleiten

...wenn man nicht unbedingt was dabei lernen will kann man auch was fertiges nehmen. Das TJvEdit von den Jedis hat eine Property EmptyValue... Sobald das Edit den Focus verliert und leer ist wird der EmptyValue hineingeschrieben. Beim Betreten wird der EmptyValue geleert um gleich schreiben zu können.

[Perlsau]

Noch nie gemacht – eine prima Gelegenheit, damit anzufangen:

• Tutorial im Delphi-Treff
• Programmierkurs Delphi Komponentenentwicklung
• Tutorial Komponentenentwicklung
• Embarcadero Einführung in die Komponentenentwicklung
• Delphi Component Building (english)
• Delphi Komponenten entwickeln von Wolfgang Zelinka
• und nicht zuletzt die hiesige Suchfunktion
• sowie Google oder auch hier

Zitat von haentschman:

Moin...

Auch dir

Zitat von haentschman:

Zitat:

In diesem Fall würde es sich aus meiner Sicht lohnen, eine eigene Komponente von TEdit abzuleiten

...wenn man nicht unbedingt was dabei lernen will kann man auch was fertiges nehmen. Das TJvEdit von den Jedis hat eine Property EmptyValue... Sobald das Edit den Focus verliert und leer ist wird der EmptyValue hineingeschrieben. Beim Betreten wird das Edit geleert um gleich schreiben zu können.

War aber nicht ganz das, was der TE wollte: "Sobald das erste Zeichen in diesem Eingabefeld geschrieben wurde, soll dieser Standardwert verschwinden ..."

[Uwe Raabe]

Zitat von frankyboy1974:

es gibt doch die Eigenschaft 'texthint' eines Tedit. Ich weiss nicht ab wann es diese Eigenschaft gibt, aber ich benutze diese schon seit Jahren.

Das ist genau die richtige Lösung. Die Funktionalität gibt es wohl schon seit Windows Vista, aber die erste Delphi-Version, die das Property anbietet, kann ich gerade auch nicht benennen. Bei XE2 ist es zumindest schon dabei.

[DeddyH]

Genau, wozu das Rad neu erfinden?