Карта сайтаСсылкиКонтакты

Перемещение компонентов на форме

PDF Печать
Статьи

Для перемещения различных компонентов на форме (TButton, TLabel и т.д.), поместите в событии компонента OnMouseDown запрос-обработчик события.

Реализация


uses
  Windows, Messages;

procedure MoveObject(Sender: TObject; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;

Использование


MoveObject(Sender, X, Y);

Это то же самое, что и нажатие F2, сопровождаемое Alt + Стрелка Вниз.

 

Добавить комментарий


Защитный код
Обновить