Советы по Delphi

         

Drag&Drop с минимизированным приложением


В ситуации, когда ваше приложение минимизировано, необходимо понимать, что окно главной формы НЕ работает. Фактически, если вы проверяете окно главной формы, и обнаруживаете, что оно имеет прежний размер, не удивляйтесь, оно просто невидимо. Иконка минимизированного Delphi-приложения принадлежит объекту Application, чей дескриптор окна - Application.Handle.

Вот некоторый код из моей программы, который с помощью компонента CheckBox проверяет возможность принятия перетаскиваемых файлов минимизированным приложением:

    procedure TForm1.WMDropFiles(VAR Msg: TWMDropFiles); {Вызывается только если TApplication НЕ получает drag/drop} BEGIN RecordDragDrop(Msg.Drop, False); {внутренняя функция} Msg.Result := 0; END;
procedure TForm1.AppOnMessage(VAR Msg: TMsg; VAR Handled: Boolean); {когда активно, получаем сообщения WM_DROPFILES, посылаемые

форме ИЛИ минимизированному приложению} BEGIN IF Msg.message = WM_DROPFILES THEN BEGIN RecordDragDrop(Msg.wParam, Msg.hWnd = Application.Handle); Handled := True; END;
procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); DragAcceptFiles(Application.Handle, False); Application.OnMessage := NIL; END; end;

OK? Первоначально вызов DragAcceptFiles работает с дескриптором главной формы...

- Neil J. Rubenking [000754]



Содержание раздела