SpinEdit.Value manuell verändern

[Patrick6]

Hallo zusammen...

Ich dachte ich schreib hier rein, weil ich ein ähnliches Problem habe. Ich wollte die SpinEdit auch benutzen, nur das ich damit meine Stiftstärke für mein Zeichenprogramm bestimm.

Mein Code sieht jetzt wie folgt aus:

Code:

procedure TForm1.SpinEdit1Change(Sender: TObject);
  begin
    if SpinEdit1.Text <> '' then
     begin
      try
        Image1.Canvas.Pen.Width := SpinEdit1.Value;
      except
        Image1.Canvas.Pen.Width := 0;
        ShowMessage('ungültiger Wert');
      end;
     end;
  AMax := 400;
  AMin := 1;
  if SpinEdit1.Value > AMax then
    begin
    AMax :=SpinEdit1.Value;
    SpinEdit1.Text := '400';
    end;
  if SpinEdit1.Value < AMin then
    begin
    AMin :=SpinEdit1.Value;
    SpinEdit1.Text := '1';
    end;
  end;

Nun bekomm ich den schon oben genannten fehler wenn ich was eingeb...Als ich die Sache mit AMax und AMin noch nicht drin hatte, bekam ich den Fehler aber nicht.

Würde mich freuen, wenn ihr mir eine Antwort habt.

Grüße