Как таскать форму за метку?

Материал из DRKB

Как таскать форму за метку?[править | править код]

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const 
  SC_DragMove = $F012; { a magic number }
begin
  ReleaseCapture();
  Form1.Perform(WM_SysCommand, SC_DragMove, 0);
end;


Author: TAPAKAH
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00584