VPF::перетаскивание файла - Форум программистов

Михалыч

Дата 23.3.2013, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

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

Код


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

procedure form.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Handle, true);
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;

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Poseidon

Дата 27.3.2013, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Михалыч @ 23.3.2013, 11:21

)

Работает хорошо, но нужно сделать что бы принимала не вся форма, а только Panel .

В OnCreate формы ты как-раз и указываешь Handle того, что должно принимать. У тебя там Handle формы. Хочешь что бы принимала только панель?

Код


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

Цитата(Михалыч @ 23.3.2013, 11:21

)

И не все файл ,а только с расширением .exe

При получении файла сверяй его расширение

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »