放一个TMemo，一个TDropURLTarget;<br>拖入地址后URL显示在Memo中。<br><br>Form的OnCreate中：<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> DropURLTarget1.Register(Memo1);//可以是任何TWinControl构件，如Panel...等<br>end;<br><br>TDropURLTarge的OnDrop中：<br>procedure TForm1.DropURLTarget1Drop(Sender: TObject;<br> ShiftState: TShiftState; Point: TPoint; var Effect: Integer);<br>begin<br> Memo1.Text := DropURLTarget1.URL;<br>end;
