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

Question

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

Answer 1

...
  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;