如何点击其它控件实现拖着标题栏移动Form呢？

Question

问题1：
知不知，如何点着Form，然后让它跟随鼠标移动呢？
也就是如点着Form的标题让这个Form移动。问题2，如何点了LABEL后，打开指定的URL

Answer 1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

Answer 2

自己查一个这个api
shellexecute

Answer 3

interface
uses shellApi;procedure TfrmMain.Label1Click(Sender: TObject);
begin
Shellexecute(handle,Nil,pChar('http://'+Label1.Caption ),Nil,Nil,SW_SHOWNORMAL);
end;