drag and drop файла

[Михаил Юрьевич]

Подскажите как сделать drag and drop файла?
Нашел вот это:
Работает хорошо, но нужно сделать что бы принимала не вся форма, а только Panel .
И не все файл ,а только с расширением .exe

 protected
    procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;

procedure form.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Handle, true);//открываем доступ для drag and drop
end

procedure form.WMDropFiles(var Msg: TMessage);
var
   Filename: array[0 .. 256] of Char;
   Count   : integer;
   Fname:string;
begin
 DragQueryFile( THandle(Msg.WParam), 0, { номер файла } Filename,SizeOf(Filename) ) ;
  DragFinish(THandle(Msg.WParam));
   end;

[3D Hunter]

ну вот после DragFinish и пишите проверочный код-фильтр, который будет отбрасывать все файлы, кроме запускаемых:
...
if extractfileext(filename)='.exe' then
begin
panel1.caption:=filename;
end;

[Михаил Юрьевич]

Сообщение от 3D Hunter

ну вот после DragFinish и пишите проверочный код-фильтр, который будет отбрасывать все файлы, кроме запускаемых:
...
if extractfileext(filename)='.exe' then
begin
panel1.caption:=filename;
end;

Ну проверить то я смогу,а как запретить принимать на форму файлы с другими расширениями?

[BDA]

Не уверен, что можно запретить.
Вы должны принимать ВСЕ события wm_DropFiles и обработать их так, как считаете нужным, т.е. exe пропускать, а остальные отбрасывать.

[Михаил Юрьевич]

Спасибо за помощь

[FleXik]

http://melander.dk/delphi/dragdrop/ вот компонент по работе с Drag&Drop, если вам нужен только путь к файлу/папке то помогу разобраться (если конечно хотите).

[Михаил Юрьевич]

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

http://melander.dk/delphi/dragdrop/ вот компонент по работе с Drag&Drop, если вам нужен только путь к файлу/папке то помогу разобраться (если конечно хотите).

Компонент хороший,я на него давно смотрю, вот только не знаю как его к XE3 прикрутить.