Button erst klickbar wenn Editfelder ausgefüllt

[s.h.a.r.k]

Was ist denn denn text? Zeit mal die ganze Methode her.

[Delphi_gn7]

naja text ist einfach der Parameter des LabelEdits, das was man dort einträgt

Habe auch self.text (also LabelEdit1.text ) versucht, hat nichts geändert

[s.h.a.r.k]

Zeig mal bitte die komplette Methode her!

[Union]

Also folgendes funktioniert definitiv, der OnChange wird ausgelöst und der jeweilige Text des Edits in ein Label geschrieben.

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Event(Sender: TObject);
begin
   label1.Caption := TLabeledEdit(Sender).Text+'|';
end;

[s.h.a.r.k]

Habe gerade nachgeschaut, und was war genau das was ich dachte... Es liegt an dem Aufruf von Text. TForm hat auch die Eigenschaft Text und genau auf diese greifst du zu. Du greifst nicht auf die LabeledEdit1.Text-Eigenschaft zu.

[Delphi_gn7]

if length(text) >= 1 then OKBtn.Enabled:=TRUE else OKBtn.Enabled:=FALSE; ist die einzige zeile in der methode procedure TOKBottomDlg.LabledEdit1Change !

[s.h.a.r.k]

Und genau die ist falsch, da du auf die Text-Eigenschaft der Form zugreifst und nicht auf die der LabeledEdits. Schreib das so wie ich es gemacht habe.

Verstanden wo das Problem liegt?

[Delphi_gn7]

aaah richtig, dann ist alles klar

Gut, für den einzelnen Fall ist es also klar; und wenn ich jetzt nicht nur ein LabledEdit-Feld habe sondern 2-3 weitere, deren Text bestimmte Voraussetzungen erfüllen muss? Die Form hat nämlich kein OnChange Ereignis - hier dann vielleicht OnKeyPress verwenden?

[Union]

Nein, Du weist allen LabeledEdits das selbe OnChange Ereignis zu und prüfst auch immer alles.