Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if SpinEdit1.Text <> ''
then
try
Image1.Canvas.Pen.Width := SpinEdit1.Value; // hier setzt Du einen Wert unabhängig davon ob er max über- oder min unterschreitet.
finally
SpinEdit1.MaxValue := 80;
SpinEdit1.MinValue := 1;
if
SpinEdit1.Value > SpinEdit1.MaxValue
then
SpinEdit1.Text := '80';
if
SpinEdit1.Value < SpinEdit1.MinValue
then
SpinEdit1.Text := '1';
end;
end;
.. auch würde ich das ganze nicht im onChange abfragen,
sonder im onExit Ereignis.
SpinEdit korrigiert den value Wert auf spindEdit.minValue oder spinEdit.maxValue wenn es den Fokus (onExit) verliert.
Grüße
Klaus