Hallo,
ich weiß warum eine
Exception auftritt.
Wenn im TSpinEdit eine Zahl z.B. 42 steht und Du diese Zahl markierst.
Jetzt möchtest Du die 42 durch 84 ersetzen. Dafür tippst Du zuerst auf
die acht und dann auf die vier. Was passiert aber, wenn Du auf die acht
getippt hast? Erst wird der Inhalt des TSpinEdit gelöscht und dann die acht
geschrieben. Die Löschung des Inhalt's wird jedoch als Änderungen erkannt
und das OnChange-Event wird ausgelöst bevor die acht in TSpinEdit steht.
Dadurch kommt es in farb_update zur Execption. Die Lösung wäre (wie
von Luckie erwähnt) dann folgende:
Delphi-Quellcode:
procedure TForm7.farb_update;
begin
Try
form7.Panel1.color :=
RGB(form7.SpinEdit1.value, form7.spinedit2.value, form7.spinedit3.value);
Except
end;
end;