Как перемещать форму за метку

Delphi , Синтаксис , Drag and Drop

Автор: TAPAKAH
WEB-сайт: http://forum.vingrad.ru

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;

Статья Как перемещать форму за метку раздела Синтаксис Drag and Drop может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Drag and Drop ::