VPF::Drag&Drop из ShellTreeView - Форум программистов

~FoX~

Дата 5.12.2005, 11:39 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Что то на меня сего с утра ступро напал.
На форме лижит 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 - вайвов (которые на форме) не таскаются. Т.е. они таскаются, но не дропаются.
Всю голову себе уже сломал с самого утра, в понедельник, без кофя, без сигарет smile

--------------------

…множественность никогда не следует полагать без необходимости…