Что то на меня сего с утра ступро напал.
На форме лижит ListBox, ShellListView, ShellTreeView
В Листбокс таскаю файлы таким макаром:
| Код |
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.Message of
WM_DROPFILES: begin
WMDropFiles (Msg.wParam, Msg.hWnd);
Handled := True;
end;
else Handled := False;
end;
procedure TForm1.WMDropFiles (hDrop : THandle; hWindow : HWnd);
var
TotalNumberOfFiles, nFileLength : Integer;
pszFileName : PChar;
i : Integer;
Begin
TotalNumberOfFiles := DragQueryFile (hDrop, $FFFFFFFF, Nil, 0);
for i := 0 to TotalNumberOfFiles - 1 do begin
nFileLength := DragQueryFile (hDrop, i , Nil, 0) + 1;
GetMem (pszFileName, nFileLength);
DragQueryFile (hDrop , i, pszFileName, nFileLength);
Listbox1.Items.Add(StrPas(pszFileName));
FreeMem (pszFileName, nFileLength);
end;
DragFinish (hDrop);
end;
|
Из експлорера все таскается замечательно, а из собственного приложения т.е. из ShellList или ShellTree - вайвов (которые на форме) не таскаются. Т.е. они таскаются, но не дропаются.
Всю голову себе уже сломал с самого утра, в понедельник, без кофя, без сигарет  . |