Как таскать форму за метку? |
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