Zitat:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if SpinEdit1.Text <> ''
then
try
Image1.Canvas.Pen.Width := SpinEdit1.Value;
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;
Sorry, aber Dein Qellcode ist für mich kaum lesbar. Richtiges Einrücken und geschlossene begin ... end wirken da Wunder.
SpinEdit.MaxValue und ..MinValue sollten nur gesetzt werden, wenn sie zu ändern sind. Also bei der Initialisierung oder bei einer faktischen Änderung. Aber doch nicht in einem OnChange mit immer dem selben Wert.
Zitat:
Hmm...wenn ich es ins ONExit Ereignis setze verändert sich die Dicke des STiftes garnichtmehr.
Was hast Du da eingefügt? Alles was vorher im OnChange stand? Poste doch mal den kompletten, relevanten Teil des Quellcodes.