Как создать иконки на форме и при необходимости их перемещать?? Как на рабочем столе в Windows!

← →
Aristotel © (2002-02-15 20:51) [0]

← →
wicked © (2002-02-16 21:12) [1]

посмотри на компоненту TListView... может, подойдёт....

Нет ListView меня не устраивает! Я научился выводить иконки с помощью DrawIconEx пример :
Var bit2:TBitmap;
Ic1 :TIcon;
begin
Ic1 :=TIcon.Create;
Ic1.LoadFromFile("e:\ic2.ico");
bit2:=Tbitmap.Create;
try
bit2.LoadFromFile("e:\fon.bmp"); // Загружаю картинку для // красоты!
Form1.Canvas.StretchDraw(rect(0,0,form1.Width,form1.Height),bit1);
DrawIconEx(Form1.Canvas.Handle,250,50,ic1.Handle,364,364,0,Form1.Canvas.Brush.Handle,DI_NORMAL);
finally
end;
end; КАК СДЕЛАТЬ ИКОНКИ ПРОЗРАЧНЫМИ ?????????????????

Как создать иконки на форме и при необходимости их перемещать?? Как на рабочем столе в Windows! Найти похожие ветки