SpinEdit.Value manuell verändern

[Klaus01]

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