Moin, ich bekomme (ist noch nicht fertig aber der fehler ist ja schon da) hierbei:
Delphi-Quellcode:
procedure GetIco(ImL: TImageList; Im: Timage; i: integer);
var
ico: TIcon;
begin
ico := TIcon.Create;
Try
if ImL.GetIcon(i, ico) then
Im.
einen fehler das TImage (erste zeile) ein undefinierte bezeichner ist, wieso denn das?