Vermutlich hast Du noch keine TIcon-Instanz erzeugt:
Delphi-Quellcode:
Var SIcon: TIcon;
begin
SIcon := TIcon.Create;
Try
ImageList1.GetIcon(0, SIcon);
SendMessage(StatusBar1.Handle, SB_SETICON, 0, SIcon.Handle);
Finally
SIcon.Free;
End;
end;
Gruß, teebee