ok perfekt! Dank mit exit klappts! Vielen Dank!
Deinen Nachtrag verstehw ich nicht ganz! Was meinst du mit manueller überprüfung?
Delphi-Quellcode:
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
if SpinEdit2.Text <> '' then
begin
try
radius := SpinEdit2.Value;
except
radius := 0;
ShowMessage('ungültiger Wert');
end;
end;
AMax := 400;
AMin := 1;
// von hier
if SpinEdit2.Value > AMax then
begin
AMax :=SpinEdit2.Value;
SpinEdit2.Text := '400';
end;
if SpinEdit2.Value < AMin then
begin
AMin :=SpinEdit2.Value;
SpinEdit2.Text := '1';
end;
// bis hier
end;
Wenn SpinEdit den Focus verliert, dann wird der eingegebene Wert automatisch überprüft
Wenn er kleiner als SpinEdit.minValue ist wird er auf minValue gesetzt.
Wenn der Wert größer als SpinEdit.maxValue ist wird der Wert auf maxValue geändert.
Grüße
Klaus