In mehreren Edit-Feldern sollen nur Zahlen kleiner als 15 eingegeben werden dürfen.
Wird im ersten Edit-Feld nun eine Zahl über 15 eingegeben, so soll eine Fehlermeldung erscheinen.
Soweit so gut.
Nun soll aber natürlich der Focus auf eben dieses Edit-Feld gelegt werden.
Mein bisherige Quelltext sieht folgendermaßen aus:
Delphi-Quellcode:
procedure TStunden.StdExit(Sender: TObject);
var
Tmp: TEdit;
Edit : String;
begin
// keine Angabe über 15 Stunden möglich
Tmp:= Sender As TEdit;
Edit := Tmp.Text;
begin
if Edit <> '' then
begin
if strtoint(Edit) > 15 then
begin
showmessage('Bitte nur Stundenangaben im Bereich {0,0 ... 15,0}');
// hier Edit.SetFocus funktioniert nicht
ModalResult := 0;
exit;
end;
end;
end;
end;
Die Edit-Felder sind durch eine Variable abgebildet. Dies soll auch nicht geändert werden. Da mir sonst der Quelltext zu lang werden würde.
Kann mir wer helfen?
Es geht also nur darum, dass eben der Cursor bei Falscheingabe wieder auf das "falsche" Feld gesetzt wird.
Vielen Dank im Voraus.