在运行时能用鼠标拖动报表上的LABEL

在运行时能用鼠标拖动报表上的LABEL hlms Delphi 笔记 - delphi2007.net
http://www.delphi2007.net/delphiblog/html/delphi_2004992226395018.html

private
    { Private declarations }
    OriginalPos,DownPos,CurrentPos:TPoint;
    mousedown:boolean;//在CRETE中将它初始化为false
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    OriginalPos.x:=Label1.Left;
     OriginalPos.y:=Label1.Top;
     DownPos.x:=X;
     DownPos.y:=Y;
     DownPos:=ClientToScreen(DownPos);
     if Button = mbLeft then
          MouseDown:=True;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if MouseDown then
     begin
          CurrentPos.x:=X;
          CurrentPos.y:=Y;
          CurrentPos:=ClientToScreen(CurrentPos);
          Label1.Left:=OriginalPos.X+CurrentPos.X-DownPos.X;
          Label1.Top :=OriginalPos.Y+CurrentPos.Y-DownPos.Y;
     end;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mousedown:=false;
end;

正在考虑将博客出书的事，任何人可以将自己的博客出个十到一百本书，有意思 
HOWTO track a user's idle time 
一处长十年玩弄上百名女性 留下无耻“性日记” 
fastreport 报表模板制作 类似于水晶报表 
Win2K下的Api函数的拦截 
Timer in TThread 
Additional Data within a StringList 
Find all Local Computers on a LAN 
Disable Ctrl Alt Del and Alt Tab 
Hi / Lo order byte