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

Вниз

Перенести текст или файл на иконку в трее (Drag and Drop)   Найти похожие ветки 

← →
CaptainX   (2006-10-13 10:57) [0]

Как перенести текст или файл на иконку в трее (Drag and Drop)?

---

← →
Kolan ©   (2006-10-13 11:06) [1]

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

procedure TMainForm.WMDropFiles(var Msg: TWMDropFiles);
var
 FileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла
begin
 try
 if DragQueryFile(Msg.Drop, 0, FileName, MAX_PATH)> 0 then
 // получение пути файла
 begin
   if CheckIsMeasuringFFTAndShowQuestion then
   begin
     try
       FHeadManager.LoadFFTGraph(FileName);
       PageControl.ActivePageIndex := 0;
     except
       raise Exception.Create("Не удалось загрузить график. Возможно файл поврежден.");
     end;
   end;
   Msg.Result := 0;
 end;
 finally
   DragFinish(Msg.Drop); // отпустить файл
 end;
end;

Вот те с файлоп кусок

---

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

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

Наверх

Память: 0.46 MB
Время: 0.047 c