Hallo Leute,
habe mit Edit Feld so meine Probleme.
Möchte das der User in den Editfeldern des Forms nur Zahlen eingeben kann.
Nach eingabe ins Editfeld soll er dirkt ins nächste springen.
Es sind nur Zahlen von 0-10 möglich, bei drücken des + vom Numpad soll
eine 10 ins Editfeld.
Hier schon mal ein bischen code:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if not (Key
in ['
0'..'
9',#8,#43])
then //auf Zahlen prüfen
Key := #0;
if Edit1.Text = '
+'
Then
Edit1.Text := '
10';
//bei eingabe von + eine 10 einfügen
PostMessage(
Handle, WM_NEXTDLGCTL, 0, 0);
//automatisch nächstes Feld
end;
Das mit der Zahlenprüfung funktioniert,
automatisch das nächste Feld auch,
aber das mit + und 10 nicht.
hoffe ihr könnt helfen!
[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]