Wenn die Farbe nicht ok ist, kann das Control eine
Exception werfen.
Davon ist sogar der Objektinspektor zur Entwicklungszeit beeindruckt.
Delphi-Quellcode:
procedure TMycontrol.Setcolor(Value : TColor);
begin
if (value = crRed)
or (value=clGreen)
then
Fcolor := value
else
raise Exception.Create('
Invalid color. (allowed: clRed, clGreen) ');
end;