Bei Eingabe im Editfeld sofort Ausrechnen

[Victore]

Hallo Leute,
habe eine bescheidene Frage, auf die ich keine Antwort finde.

Ich habe 2 Labels und 1 Editfeld.
Bei Eingabe einer Zahl ins Editfeld soll der Wert in Label1 mit der Zahl aus dem Editfeld multipliziert werden, und ins Label2 verfrachtet werden.

Nehmen wir an, in Label1 steht "15". Jetzt tippe ich eine "2" ins Editfeld, und sehe das Ergebnis "30" in Label2. Tippe ich nun im Editfeld weiter, z.B. eine "0" (es steht jetzt also "20" drin) soll das Ergebnis (zur Laufzeit, richtig?) richtigerweise "300" lauten.

Wie realisiere ich das am geschicktesten?
Welches Ereignis von Edit1 ist dazu am besten geeignet? KeyDown, KeyPress, KeyUp??

[MrKnogge]

TEdit hat das Event "OnKeyPress", darin kannst du die Rechnung durchführen.

gruss

[zecke]

Herzlich Willkommen in der DP :hi: !



Ebenfalls würde ich OnKeyPress nehmen, aber MrKnogge war zu schnell ;)

[wolle90]

Könnte es sein, dass das Hausaufgaben sind?

Diese Aufgabe hatte ich auch am Anfang.

[Victore]

Ihr seid ja Rattenschnell!! :P
Nein, sind keine HA. :)
Und: die Rechnung soll ohne Return zu drücken durchgeführt werden.
OnKeyPress will die schon ausführen, obwohl Edit1 noch leer ist ('').
Der "schluckt" das erste Zeichen, das ich ins Editfeld eingebe...

[fred.reichbier]

wie wärs mit onchange? geht das nicht auch?

[igel457]

Probier dann halt mal "OnChange" oder "OnKeyUp" aus.
Das der bei "OnKeyPress" das letzte Zeichen schluckt ist normal.

[Victore]

Zitat:

Zitat von igel457

Probier dann halt mal "OnChange" oder "OnKeyUp" aus.
Das der bei "OnKeyPress" das letzte Zeichen schluckt ist normal.

Es wird aber das erste Zeichen geschluckt!
Ansonsten funzt es.

[zecke]

Mit OnChange vom Edit ist das kein Thema. Funktioniert bei mir.

Edit: Fehler beseitigt und bei OnChange werden keine Zeichen geschluckt.

[Victore]

Zitat:

Zitat von zecke

Mit OnChange vom Edit ist das kein Thema. Funktioniert bei mir.

Edit: Fehler beseitigt und bei OnChange werden keine Zeichen geschluckt.

Ok, bei mir jetzt auch.

Nun soll überprüft werden ob das eingegebene Zeichen eine Zahl ist. Wenn ja, soll er rechnen, wenn nein dann Showmessage('Ungültiges Zeichen') und Edit1.Focus