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

Как переместить окно при помощи мыши

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

Можно переместить форму не только за заголовок, можно также запрограммировать, чтобы она перемещалась при движении формы над каким-либо управлением. Например, разместим кнопку TButton и запишем код, приведенный ниже в событие кнопки MouseDown кнопки. Теперь, при нажатии на кнопку и перемещении мыши, форма будет перемещаться.


procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   Perform(wm_syscommand,$f012, 0);
end;

Также можно перемещать не только форму, а и любое управление, которое имеет свой Handle. Например, TEdit или TPanel, ну и другие.


procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   Panel1.Perform(wm_syscommand,$f012, 0);
end;

 

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


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