onchange ereignis verhindern

[guude4]

Guude

Ich habe in meinem Prog eine Scrollbar und ein Edit. Nun soll die Scrollbar, wenn man in das Edit eine Zahl eingibt, auf diese Zahl springen und umgekehrt. Soweit ist das kein Problem. Das habe ich mit OnChange gelöst. Allerdings stürzt das Prog ab, wenn keine Eingabe in dem Edit steht, sprich wenn man via Backspace die Zahl löscht. Weil ich Backspace aber brache, kann ich diese Taste ja nicht sperren.

Wie kann ich Delphi nun sagen, dass das OnChange Ereignis nicht ausgeführt wird, wenn in dem Edit nichts drinn steht?

Vielen Dank

[alfold]

if edit1.text = '' then exit;
Gruss alfold

[guude4]

Vielen Dank!

Manchmal kommt man auf die einfachsten Sachen nicht - Einfach das OnChange erweitern .....

[Sir Rufo]

oder mit ScrollBar.Position := StrToTintDef( Edit1.Text, 0 ) einen Default-Wert vorgeben
oder mit

Delphi-Quellcode:

if TryStrToInt( Edit1.Text, EditWert ) then
    Scrollbar.Position := EditWert;