Перемещение мышью панели на форме во время выполнения программы

Delphi , Компоненты и Классы , TPanel

Автор: Aleksey

{Так можно таскать мышкой TPanel по форме в run-time'е.
Поместите на форму TPanel и напишите обработчик события OnMauseDown,
запустите программу и задвинте эту панель подальше.}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  {а если сюда написать Form1, то можно таскать форму по экрану}
  Panel1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

на самом деле таким образом можно таскать по форме любые визуальные компоненты.

Статья Перемещение мышью панели на форме во время выполнения программы раздела Компоненты и Классы TPanel может быть полезна для разработчиков на Delphi и FreePascal.

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

:: 2015-01-03 13:45:25 :: re:Перемещение мышью панели на форме во время выполнения программы

пользователь: Александр.

Визуальный компонент Shape не перетаскивается по форме

:: Главная :: TPanel ::