| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Drag and Drop файла [D7, WinXP]
Аноним © (2006-01-19 10:12:00)Подскажите плиз, как осуществить сабж. Т.е. надо например из провадника перетащить файл на форму, с целью отображения в каком либо поле пути к этому файлу.
Всем спасибо!
Igor_thief (2006-01-19 13:54:00) [1]...
protected
procedure WMDropFiles(var Msg:TMessage);message wm_DropFiles;
...
procedure TfrmMain.WMDropFiles(var Msg: TMessage);
var
cn:cardinal;
FileName:array[0..256]of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(FileName));
FName:=StrPas(FileName);
......
DragFinish(THandle(Msg.WParam));
end;
Аноним (2006-01-19 13:18:00) [2]Пардон, за назойливость, а прмерчека нету?
han_malign (2006-01-19 11:27:00) [3]DragAcceptFiles, DragFinish, DragQueryFile, DragQueryPoint
WM_DROPFILES
| |
