Hallo...
versuchs mal damit:
Delphi-Quellcode:
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
var AllesOK: Boolean;
begin
AllesOK:= True;
if key=#13 then
begin
bevel4.Hide;
try
aanzahl:=strtoint(edit4.Text)
except
begin
showmessage(Edit4.Text + ' ist kein gültiger Wert');
Edit4.Text:= ''; // z.B. Feld löschen, oder du kannst an dieser Stelle alles markieren, wie du willst
AllesOK:= False;
end;
if AllesOK then
begin
edit4.Hide;
radiogroup1.Show;
radiogroup1.setfocus;
end;
end;
end;
- Im Falle eines Fehlers wird AllesOK auf False gesetzt und Edit4 bleibt sichtbar.
