12-04-2008, 09:15 PM
بالنسبة لكود استدعاء MyIcon هذا التصحيح:
فعذرا على السهو ...
كود :
[COLOR=Black]var
ForMyIcon: TIcon;
begin
ForMyIcon:= TIcon.Create;
ForMyIcon.Handle := LoadIcon(HInstance, 'MyICON');
Icon := ForMyIcon;
Image1.Picture.Icon := Icon;
ForMyIcon.free;
End;[/COLOR]فعذرا على السهو ...