Перемещение иконок между несколькими TImageLists |
Previous Top Next |
Code: |
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; |
©Drkb::01263
Взято с сайта: http://www.swissdelphicenter.ch