急救：一个常见的.....多答多送分哟！！！！！

Question

   前辈请教：
       假若我想通过鼠标动态改变（如button1)的大小和位置。该怎么做呀.
       尽量详细一点哟，如怎样扑获鼠标移动是与(button1)的相对位置.

Answer 1

var oldPT: TPoint;procedure TForm1.FormCreate(Sender: TObject);
begin
  GetCursorPos(oldPT);
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  Button1.Left := Button1.Left + pt.X - oldPT.X;
  Button1.Top := Button1.Top + pt.Y - oldPT.Y;
  oldPT := pt;
end;