Ein paar Tipps und Hinweise
(a) nenne Die Klasse zBsp: TSpeedButtonEx mit den Zahlen kommst du früher oder später durcheinander
(b) verlagere FImages in den private Teil
(c) benenne die Setter-proc von SetImage in SetImageIndex um
(d) die ImageList musst Du von außen setzen
(e)
Delphi-Quellcode:
procedure TSpeedbutton1.SetImageIndex(Value: Integer);
begin
if FImageIndex<>Value then
begin
FImageIndex := Value;
if Assigned(FImages) then FImages.GetBitmap(FImageIndex,Glyph);
end;
end;
{EDIT]
(f) muss ja kommen, da FImages=nil ist