請問: 我已經知道該如何由外部視窗拖曳文字檔到 Form上， 並顯示於 Tedit 元件，
但是如果 Form上有多個 Tedit 元件，該如何拖曳到指定的 Tedit 元件並顯示呢??

還是能有範例可以提供參考一下，謝謝

用 tedit 的 DragDrop 可以達成您要的嗎 ?
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin

end;

不行，tedit 的 DragDrop 用在 Form 內部可以， 可是從外部拖曳就不行，
請問還有神人可以幫我解決這個難題嗎?


===================引 用 tuga 文 章===================
用 tedit 的 DragDrop 可以達成您要的嗎 ?
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin

end;

自問自答：
問題已經解決了,

WMDropFiles(var Msg: TWMDropFiles) 中增加判斷滑鼠所在元件名稱


procedure TFrom1.WMDropFiles(var Msg: TWMDropFiles);
var filename: PChar;
length: LongWord;

pd:TPoint;
WinCon : TWinControl;
WND : HWND;
cmpComponent:TComponent;

begin
GetCursorPos(pd);
WND := Handle;
repeat
WinCon := FindControl(WND);
WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(pd));
if (WND = 0) or (not WinCon.Showing) or (not WinCon.CanFocus) then //增加判斷 showing focus
exit;
until (WND = WinCon.Handle) or (WinCon.ControlCount <= 0);
cmpComponent := FindComponent(wincon.Name);


if cmpComponent.Name = 'DBGrid1' then
begin
length:= DragQueryFile(Msg.Drop, 0, NIL, 0);
filename:= StrAlloc(length 1);
DragQueryFile(Msg.Drop,0,filename,length 1);
{do something with filename}

ShowMessage(filename);

Msg.Result:=0;
inherited;
end;
end;






===================引 用 larrytyan 文 章===================
不行，tedit 的 DragDrop 用在 Form 內部可以， 可是從外部拖曳就不行，
請問還有神人可以幫我解決這個難題嗎?


===================引 用 tuga 文 章===================
用 tedit 的 DragDrop 可以達成您要的嗎 ?
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin

end;