Перетаскивание файлов (DragDrop)

[vmilyoshin]

Всем привет!
Есть форма на ней имеется компанент Panel. Мне нужно узнать имя файла перетаскиваемо именно на Panel а не на форму.
Делаю так для всей формы, то получается узнать имя файла:
DragAcceptFiles(Handle, true);
Но мне вся форма не нужна, то делаю так:
DragAcceptFiles(Panel1.Handle, true);
Ну тогда не работает ниже выложенный код. Как его переделать именно для Panel ?

protected
  procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
 
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
  i, amount, size: integer;
  Filename: PChar;
begin
  inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (Amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
    Filename := StrAlloc(size);
    DragQueryFile(Msg.WParam, i, Filename, size);
    ShowMessage(StrPas(Filename));
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;

[tsar_]

Примеры привести не могу, но возможные пути решения:
1. Сделать компонент-наследник TPanel (радикально и красиво)
...или...
2. Воспользоваться функцией DragQueryPoint, которая, если не ошибаюсь, возвращает координаты курсора в момент сбрасывания файлов на форму. Если координаты внутри панели - делай, что нужно.

Также для общего развития предлагаю почитать вот это

[vmilyoshin]

Сообщение от tsar_

Примеры привести не могу, но возможные пути решения:
1. Сделать компонент-наследник TPanel (радикально и красиво)
...или...
2. Воспользоваться функцией DragQueryPoint, которая, если не ошибаюсь, возвращает координаты курсора в момент сбрасывания файлов на форму. Если координаты внутри панели - делай, что нужно.

Также для общего развития предлагаю почитать вот это

То что вы предлодили почитать я и так знаю.
Мой вопрос иной. Как переделать данную процедуру только к Panel а не ко всей форме?

[tsar_]

1. Сделать компонент-наследник TPanel

И использовать его вместо стандартного.

[vmilyoshin]

Сообщение от tsar_

И использовать его вместо стандартного.

Пытаюсь создать новый компонент, но ни черта не выходит.

unit DPanel;

interface

uses
SysUtils, Classes, Controls, ExtCtrls, Messages, Dialogs, ShellApi;

type
TDPanel = class(TPanel)
private
{ Private declarations }
protected
{ Protected declarations }
public
procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation


procedure Register;
begin
RegisterComponents('Samples', [TDPanel]);
end;

procedure WMDROPFILES(var Msg: TMessage);
var
i, amount, size: integer;
Filename: PChar;
begin
Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
for i := 0 to (Amount - 1) do
begin
size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
Filename := StrAlloc(size);
DragQueryFile(Msg.WParam, i, Filename, size);
ShowMessage(StrPas(Filename));
StrDispose(Filename);
end;
DragFinish(Msg.WParam);
end;


end.

[vmilyoshin]

Всем спасибо. Решил проблему так.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ShellApi, DragDrop, DropTarget, DragDropGraphics;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    protected
  procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;

procedure TForm1.WMDROPFILES (var Msg: TMessage);
var
  Amount, size, i: integer;
  Filename: PAnsiChar;
  Cur: TPoint;
  mx, my: integer;
begin
  inherited;
  GetCursorPos(Cur);
  mx:= Cur.X;
  my:= Cur.Y;
  if FindControl(WindowFromPoint( Cur )).Name = 'Panel1' then
  begin
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  if Amount > 1 then
  begin
  showmessage('Íóæíî ïåðåòàùèòü îäèí ôàéë.');
  Exit;
  end;
  for i := 0 to (Amount - 1) do
  begin
  size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
  Filename := StrAlloc(size);
  DragQueryFile(Msg.WParam, i, Filename, size);
  ShowMessage(StrPas(Filename));
  StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
  end;
end;

end.