SpinEdit.Value manuell verändern

[Progman]

Hier mal ein Code, wie ich ihn nutzen würde:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Spinedit1.MaxValue:=400;
  SpinEdit1.MinValue:=1;
  SpinEdit1.Value:=SpinEdit1.MinValue;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if SpinEdit1.Text <> '' then begin
    if SpinEdit1.Value < Spinedit1.MinValue then SpinEdit1.Value:=SpinEdit1.MinValue else
     if SpinEdit1.Value > Spinedit1.MaxValue then SpinEdit1.Value:=SpinEdit1.MaxValue;
    Image1.Canvas.Pen.Width := SpinEdit1.Value;
  end;
end;

procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8]) then Key:=#0;  //#8 ist Backspace
end;

Hoffe, es hilft dir