高手帮我看看！关于DragDrop!!!

[iron0]

我写了一个例子（有源码），谁能帮我调试一下！可以拖拽，但无法激活form，所以 无法处理drop事件！！！
（源码）http://bbs.2ccc.com/attachments/0iron0_2005117151749.rar

[iron0]

没人知道吗？

[Kshape]

先看看再说
不过我不是高手

[楚人无衣]

...
private
{ Private declarations }
procedure DropURL(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
URLDropTarget1:=TURLDropTarget.Create(self);
URLDropTarget1.OnDrop := DropURL;
end;

procedure TForm1.DropURL(Sender: TObject);
begin
SetForeGroundWindow(Handle);
ShowMessage(URLDropTarget1.URL);
end;

[iron0]

果然有高手！能不能再给个说明！非常感谢！！！