Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.16;
Скачать: CL | DM;

Вниз

Drag-n-Drop файлов из проводника   Найти похожие ветки 

 
D@nger   (2008-10-09 10:53) [0]

Здравствуйте! Реализовал драг энд дроп следующим методом:

procedure TFmain.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

procedure TFmain.FileIsDropped(var Msg:TMessage);
var hDrop:THandle ;
   fName:array[0..256]of CHAR ;
begin
  inherited;
  hDrop := Msg.WParam ;
  DragQueryFile(hDrop,0,fName,256);
  if DragQueryPt
  showmessage(fname);
  DragFinish(hDrop);
end;



В результате переноса файла из проводника программа отображает имя этого файла. Как мне узнать на какой компонент на форме был брошен файл? Нашел апи функцию DragQueryPt .. которая должна говорить место куда был брошен файл, но как с ней работать не нашел.... Подскажите как быть.


 
{RASkov} ©   (2008-10-09 11:30) [1]

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ShellApi;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   ListBox2: TListBox;
   procedure FormCreate(Sender: TObject);
 private { Private declarations }
   procedure DropFiles(var Mes: TWmDropFiles); message WM_DROPFILES;
 public { Public declarations }
 end;

var Form1: TForm1;

implementation
{$R *.dfm}

procedure AddFile(const FL: String; Lst: TWinControl);
begin
  if Assigned(Lst) and (Lst is TListBox) then TListBox(Lst).Items.Add(FL);
end;

procedure TForm1.DropFiles(var Mes: TWmDropFiles);
var N, I: Integer;
FlNm: String;
L: TWinControl;
P: TPoint;
begin
 N:=DragQueryFile(Mes.Drop, $FFFFFFFF, nil, 0)-1;
 GetCursorPos(P);
 L:=FindControl(WindowFromPoint(P));
 try
  for I:=0 to N do begin
   SetLength(FlNm, MAX_PATH);
   DragQueryFile(Mes.Drop, I, PChar(FlNm), MAX_PATH);
   FlNm:=PChar(FlNm);
   AddFile(FlNm, L);
  end;
  if N>=0 then AddFile("<<***Добавлено "+IntToStr(N+1)+" файл(а,ов)***>>", L);
 finally DragFinish(Mes.Drop); end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var N, N1: Integer;
begin
 ListBox1.Clear;
 N1:=ParamCount;
 for N:=1 to N1 do AddFile(ParamStr(N), ListBox1);
 if N1>0 then AddFile("<<***Добавлено "+IntToStr(N1)+" файл(а,ов)***>>", ListBox1);
 DragAcceptFiles(Handle, True);
end;

end.


 
{RASkov} ©   (2008-10-09 11:38) [2]

> [0] D@nger   (09.10.08 10:53)
> Нашел апи функцию DragQueryPt ..

Может всетаки DragQueryPoint ?
 if DragQueryPoint(Mes.Drop, P) then ShowMessage(Format("x=%d y=%d", [P.X, P.Y]))
  else ShowMessage("Oops");

P: TPoint;


 
D@nger   (2008-10-09 13:38) [3]

Всем ОГРОМНОЕ спасибо за ответы, в особенности RASkov"у .
L:=FindControl(WindowFromPoint(P)); - это то что мне нужно ...



Страницы: 1 вся ветка

Текущий архив: 2008.11.16;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.005 c
15-1221554711
melehov
2008-09-16 12:45
2008.11.16
Самоцель:создать БД для себя и всеобщего пользования сотрудников


15-1221717255
Chuvak
2008-09-18 09:54
2008.11.16
Настройки в реестре D2007


15-1221728218
Palladin
2008-09-18 12:56
2008.11.16
Генератор документации


15-1221643996
DevilDevil
2008-09-17 13:33
2008.11.16
Define-ы версий Delphi ?


2-1223287456
Dennis I. Komarov
2008-10-06 14:04
2008.11.16
MDI из DLL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский