How to move icons between TImageLists (Views: 32)
Problem/Question/Abstract: How to move icons between TImageLists Answer: procedure TForm1.Button1Click(Sender: TObject); var ico: TIcon; begin ico := TIcon.Create; try Imagelist1.GetIcon(0, ico); Imagelist2.AddIcon(ico); finally ico.Free; end; end; |