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

Previous  Top  Next

    
 

 

 

 

Code:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const SC_DragMove = $F012; { a magic number }

{©Drkb v.3(2007): www.drkb.ru}

 

begin

ReleaseCapture;

Form1.perform(WM_SysCommand, SC_DragMove, 0);

end;

 

 

 

Автор ответа: TAPAKAH

©Drkb::00584

Взято с Vingrad.ru http://forum.vingrad.ru