Drag & Drop - Правильно воспользоватся

[AMD]

Есть такая задача нужно из проводника перетенуть файл на мемо
Каким образом узнать путь к этому файлу

Видел есть событие ondragdrop

Код: Выделить всё

procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin

end; 


X Y - это понятно что координаты мышки


Спасибо заранее

[alexs]

Смотри пример - Lazarus/examples/dropfiles
там всё просто

[AMD]

Смотри пример - Lazarus/examples/dropfiles
там всё просто

Отличный пример. Спасибо

В форме создаем событие onDropFiles

Код: Выделить всё

procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String
  );
begin
    if length(FileNames[0])>0 then
     begin
      OpenDialog1.FileName:=FileNames[0];
      MOpenFile()
     end
     else exit;
end;       


FileNames - это массив строк - каждая строка один путь к файлу

[AMD]

Классно работает но вот как сделать когда перетенул файл чтобы активировалось именно это окно где я перетенул файл, а то активной остается то окно в которой файл

[alexs]

а Form.SetFocus? - я точно не помню - но кажется оно.

[AMD]

а Form.SetFocus? - я точно не помню - но кажется оно.

Имено оно Form.SetFocus - правда очень странно фокусируется только один раз с момента запуска программы. Следуюшие разы не хочет больше фокусироватся.


Не могу понять а что дает Activate?

[Павел Ишенин]

Может еще Application.BringToFront;

[AMD]

Может еще Application.BringToFront;

Работает как часики

[Aleh]

Может кто знает как реализовать обратную задачу:
1. Есть файл c:\папка1\подпапка1\подподпапка1\подподподпапка1\текст.txt (в общем где-то очень далеко)
2. Label1.Caption моей программы это "знает".
3. Как создать dropfiles этого файла из моей программы в окно проводника (например на флешку).
Буду очень благодарен дельным советам.

[Aleh]

"Молчание звучит не убедительно". Задачка похоже не простая.
Я на просторах инета обнаружил только одно нормальное решение http://rouse.drkb.ru/winapi.php#fwoledragdrop "OLE DragDrop." но оно для Embarcadero. Можно ли это портировать в Лазарус, я не знаю.
Может кому-нибудь поможет, я рисковать не стал, вышел из положения путем обратного инжиниринга формата буфера обмена нужной мне программы.
Во вложении "только исходники: fwoledragdrop_noexe.zip перепакованный в рар" на случай если сайт станет 404.

[pupsik]

Aleh не молчание.... поищите на форуме. Уже было....
В т.ч. "всплывал" компонент...

[Aleh]

дааааааа, точно!!!!

Это ваще возможно?

не...е: это не возможно....

http://wiki.freepascal.org/Drag_and_Drop_sample
http://wiki.lazarus.freepascal.org/LCL_Drag_Drop
ну...у и нечто компонента:
https://github.com/prof7bit/NativeDragDrop

и я это читал, после первых двух ссылок компонент я смотреть уже не стал, а зря.
======
устанавливаем, ложим на форму,
при создании формы (в инспекторе объектов у меня не прописывался) пишем NativeDragSource1.Control:=Edit1(любой визуальный потомок TWinControl с DragMode: = dmManual). При нажатии и перетаскивании по которому начинается процесс.
прописываем обработчик для перетаскивания файлов

procedure TForm.NativeDragSource1DragGetFileList(Sender: TObject; FileList: TStringList);
begin
FileList.Append(lbCurFile.Caption);//lbCurFile : TLabel там имя файла в кодировке "лазаруса"
end;
===УСЁ.==
Им можно таскать текст, но я не проверял.
Спасибо pupsik за пост.
Вы себя в "Что, Где, Когда" попробуйте, у Вас скрытый талант