Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Встала проблема использования своих курсоров при реализации drag&drop файлов из винды в своё приложение. Т.е. вместо стандартных курсоров использовать свои ПРИ drag&drop.

Использую следующюю реализацию drag&drop

 type
  TForm1 = class(TForm)
  ...
  private
    procedure WMDropFiles (var Msg: TWMDropFiles); message WM_DROPFILES;
...
 
  end;
 
...
 
 
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  h: THandle;
  pchr: array[0..254] of char;
begin
  h := Msg.Drop;
  DragQueryFile(h,0,pchr,254);  
...
  DragFinish(h);
end;
 
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, true);
end;

Вопрос задал: SCRIMERS (статус: Посетитель) Вопрос отправлен: 16 октября 2011, 23:20 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Вадим К (статус: Академик), 17 октября 2011, 14:27 [#1]: А как думаете, кому принадлежит курсор, когда перетаскиваете с проводника в приложение? Правильно, проводнику. Если нужно, что бы курсор был свой, тогда нужно писать расширение для проводника. Но как только курсор находится над Вашим приложением, то никто не мешает сменить курсор. Галочка "подтверждения прочтения" - вселенское зло.

bugmenot (статус: 3-ий класс), 20 октября 2011, 20:50 [#2]: Насколько помню, старый интерфейс не предоставляет возможности А вот COMовский предоставляет, см. http://msdn.microsoft.com/en-us/library/windows/desktop/ms693723(v=vs.85).aspx виконання програми розпочинається з того самого мiсця, де призупинилося.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.