Quick example:
procedure TForm1.Button2Click(Sender: TObject);
var
t_Icon: TIcon;
begin
t_Icon := TIcon.Create();
t_Icon.Handle := LoadImage( 0, MAKEINTRESOURCE(32513), IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED );
if ( t_Icon.Handle <> 0 ) then
ImageList1.AddIcon( t_Icon );
// .............
t_Icon.Free();
end;
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.