|
(Co-Admin)
Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
Delphi 2010 Professional
|
16. Jan 2003, 07:46
Hallo Bloodhound,
es ist gar nicht notwendig, dem OnChange Event der einzelnen Editfeldern Code zuzuweisen. Dieses Event wird bei Eingabe jedes einzelnen Zeichens ausgelöst, aber du willst ja gar nichts mit dem "Zwischenergebnis" machen!? Du könntest hier eventuell prüfen, ob die Eingabe noch immer ein korrekter Float Wert ist und ggf. die Annahme des Zeichens verhindern. Dies könntest du jedoch -wie ich schon einnmal erwähnt hatte- einem MaskEdit Feld überlassen.
Eigentlich bräuchtest du nur dem "Berechnen" Button Code zuweisen. Dieser sollte dann den Inhalt der 3 Editfelder prüfen und bei Erkennen eines Fehlers, das entsprechende Feld aktivieren (z.B. ActiveControl=Edit1). Sind alle Eingaben korrekt, wird das Ergebnis berechnet.
Albert Live long and prosper
MrSpock
|