Hallo,
das Plus Zeichen muss nach dem ersten Test vernichtet und sollte aus dem zweiten Test entfernt werden.
Hier mein Vorschlag:
Delphi-Quellcode:
procedure TDemoForm.EditKeyPress(Sender: TObject;
var Key: Char);
begin
with Sender
as TEdit
do
begin
case Key
of
'
0'..'
9':
Text := Key;
'
+':
Text := '
10';
else
Text := '
';
end;
Key := #0;
if Text = '
'
then
Exit;
end;
PostMessage(
Handle, WM_NEXTDLGCTL, 0, 0);
end;
Freundliche Grüße