Перенести текст или файл на иконку в трее (Drag and Drop) [D7]
CaptainX © (2006-10-13 10:57:00)
Как перенести текст или файл на иконку в трее (Drag and
Drop)?
Kolan (2006-10-13 11:06:00) [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;
Вот те с файлоп кусок
Наверх 
ЧАТ |
Орешник |
|
