关于鼠标拖动图片的有关问题

关于鼠标拖动图片的问题
我在TpageControl里加了一个图片，想鼠标点左键的时候拖动图片，可是它只能在TpageControl里拖，我想让鼠标拖动图片出来时能跟随鼠标显示在窗体，原来的图片还在。就像Delphi的控件拖动那样的效果，拜托大家多多帮忙！

------解决方案--------------------
刚答了个问题,跟你的差不多, 把Form,Panel的OnDragDrop和OnDragOver都指向同一个事件!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Source is TButton) then
begin
with Source as TButton do
begin
Left := X;
Top := Y;
Parent := (Sender as TWinControl);
end;
end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source is TButton then Accept := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TButton.Create(Self) do
begin
Parent := Panel1;
Top := Panel1.Top + 5;
Left := Panel1.Left + 5;
DragMode := dmAutomatic;
Caption := 'Test ';
end;
end;

end.