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