Hai Pulli,
willkommen im Forum.
Zitat von
Pulli:
ich hab ein Problem mit textfeldern. ich hab die textfelder als variablen deklariert und will die jetzt in eine if bedingung schreiben , dass eine fehlermeldung wenn man nichts in das textfeld eingibt ....
Ich verstehe nicht so ganz was Du mit Textfeldern meinst?
Ich denke mir Du hast auf deiner Form mehrere Editfelder und möchtest nun prüfen ob in den Felder entwas eingegeben wurd?
Wenn JA:
Schreibe mal in das
OnExit Ereignisses von deinem Edit:
Delphi-Quellcode:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
If (Trim ((Sender As TEdit).Text) = '') then
begin
ShowMessage ('Bitte etwas eingeben');
(Sender As TEdit).SetFocus;
end;
end;
Bei Fragen -> schreiben
Stephan B.
"Lasst den Gänsen ihre Füßchen"