Ich würde das so umstellen:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if Key='
+'
then
Edit1.Text := '
10'
else
begin
if not (Key
in ['
0'..'
9',#8,#43])
then //auf Zahlen prüfen
Key := #0;
PostMessage(
Handle, WM_NEXTDLGCTL, 0, 0);
//automatisch nächstes Feld
end;
end;
Evtl. musst du das PostMessage noch aus dem Block rausziehen, wenn du das immer haben willst.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1