Советы по Delphi
Drag&Drop с минимизированным приложением
В ситуации, когда ваше приложение минимизировано, необходимо понимать, что окно главной формы НЕ работает. Фактически, если вы проверяете окно главной формы, и обнаруживаете, что оно имеет прежний размер, не удивляйтесь, оно просто невидимо. Иконка минимизированного Delphi-приложения принадлежит объекту Application, чей дескриптор окна - Application.Handle.
Вот некоторый код из моей программы, который с помощью компонента CheckBox проверяет возможность принятия перетаскиваемых файлов минимизированным приложением:
| procedure TForm1.WMDropFiles(VAR Msg: TWMDropFiles);{Вызывается только если TApplication НЕ получает drag/drop}BEGINRecordDragDrop(Msg.Drop, False); {внутренняя функция}Msg.Result := 0;END; procedure TForm1.AppOnMessage(VAR Msg: TMsg; VAR Handled: Boolean);{когда активно, получаем сообщения WM_DROPFILES, посылаемыеформе ИЛИ минимизированному приложению}BEGINIF Msg.message = WM_DROPFILES THENBEGINRecordDragDrop(Msg.wParam, Msg.hWnd = Application.Handle);Handled := True;END; procedure TForm1.FormCreate(Sender: TObject);beginDragAcceptFiles(Handle, True);DragAcceptFiles(Application.Handle, False);Application.OnMessage := NIL;END;end; |
OK? Первоначально вызов DragAcceptFiles работает с дескриптором главной формы...
- Neil J. Rubenking [000754]
