Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Научите меня drag n drop у :-)   Найти похожие ветки 

← →
DNT ©   (2002-09-08 17:04) [0]

Не знаю, как реализовать это.
Нужно, что бы на иконку в трее кидали файл.
А дальше, прога его должна обрабатывать.

Иконку в трей помещаю так:
ticon.cbSize:=SizeOf(ticon);

if configuration.icon="" then ticon.hIcon:=LoadIcon(HInstance,PChar("TRAY"))
else ticon.hIcon:=ExtractIcon(handle,PChar(configuration.icon ),configuration.icon_index);

ticon.Wnd:=Bar_Form.Handle;
ticon.szTip:="Tray Bar Pro (beta)";
ticon.uCallbackMessage:=WM_USER+1;
ticon.uFlags:=NIF_MESSAGE OR NIF_TIP OR NIF_ICON;
ticon.uID:=32;
Shell_NotifyIcon(NIM_ADD,@ticon);


Спасибо : )

---

← →
MetalFan ©   (2002-09-09 10:54) [1]

посмотрите http://delphi.mastak.ru/articles/dragndrop/index.html
может поможет?

---

← →
Cobalt ©   (2002-09-09 21:49) [2]

Насколько я знаю, Системный лоток не поддерживает перетаскивание файлов (Хотя, это в Вин98)
Поищите в http://msdn.microsoft.com/library/ , может в ХР уже есть...

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c