Форум: "Основная";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
ВнизПеренести текст или файл на иконку в трее (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.888 c