Mega Code Archive

 

Categories / Delphi / VCL

 

Move icons between timagelists

procedure TForm1.Button1Click(Sender: TObject); var ico: TIcon; begin ico := TIcon.Create; try Imagelist1.GetIcon(0, ico); // Get first icon from Imagelist1 Imagelist2.AddIcon(ico); // Add the icon to Imagelist2 finally ico.Free; end; end;