перемещение визуальных компонентов.

[Dvoishnik]

всем добра. добрые люди подскажите как сделать перемещение кнопки или другого визуального компонента. хочу чтобы можно было двигать как в момент накидывания компонента на форму, можно на примере кнопки.
я предполагаю есть событие подходящее для этого вот только не могу понять какое?

[VIK_aka_TOR]

если немного погуглить то можно найти:


Есть два варианта. Либо вручную делать с помощью события движения мыши, чтобы при зажатой левой кнопке мыши кнопка на форме следовала за курсором, либо использовать стандартные функции.
Простой способ - с помощью события движения мыши. Описываем булеву переменную drag. При событии OnMouseDown присваиваем drag:=true, т.е. разрешаем перемещение. В обработчике события OnMouseMove присваиваем координатам кнопки координаты мыши, так же, как было сделано в таймере, но с условием if drag then [наши действия]. И, наконец, при событии OnMouseUp сбрасываем переменную - drag:=false.
Пример кода:

{...код...}
var drag:boolean=false;
{...код...}
procedure TForm1.Button1MouseDown; {кнопка нажата и удерживается}
begin
  drag:=true; {можно двигать}
end;
procedure TForm1.Button1MouseUp; {кнопка отпущена}
begin
  drag:=false; {нельзя двигать}
end;
procedure TForm1.Button1MouseMove;
begin
if drag then {если можно двигать, то двигаем}
begin {добавляем -5 и -30, чтобы учитывалась рамка формы}
  button1.left:=mouse.CursorPos.X-form1.Left-5;
  button1.top:=mouse.CursorPos.y-form1.top-30;
end;
end;

Другой способ такой: свойству DragMode кнопки присвоить dmAutomatic (кнопка перемещается автоматически), ну и свойству DragKind - dkDock (кнопка будет стыковаться с другими объектами, как я понял). Далее. У некоторых компонентов, особенно с большим и пустым рабочим пространством (форма, панель, всякие бары), есть свойство DockSite - чтобы кнопка садилась на этот компонент, это свойство должно иметь значение true. Правда, кнопка может случайно оказаться сама по себе, не пристыкованной, поэтому нужно быть аккуратней (у неё появится заголовок и кнопка закрытия, т.е. пользователь может её случайно уничтожить). Зато это удобно. Кстати, тут есть дополнительные события: OnDragDrop, OnDragOver, OnStartDock, OnStartDrag, OnEndDock, OnEndDrag. Надеюсь, разберёшься с ними сам, если понадобится.

[Dvoishnik]

Сообщение от VIK_aka_TOR

Другой способ такой: свойству DragMode кнопки присвоить dmAutomatic (кнопка перемещается автоматически), ну и свойству DragKind - dkDock (кнопка будет стыковаться с другими объектами, как я понял). Далее. У некоторых компонентов, особенно с большим и пустым рабочим пространством (форма, панель, всякие бары), есть свойство DockSite - чтобы кнопка садилась на этот компонент, это свойство должно иметь значение true. Правда, кнопка может случайно оказаться сама по себе, не пристыкованной, поэтому нужно быть аккуратней (у неё появится заголовок и кнопка закрытия, т.е. пользователь может её случайно уничтожить). Зато это удобно. Кстати, тут есть дополнительные события: OnDragDrop, OnDragOver, OnStartDock, OnStartDrag, OnEndDock, OnEndDrag. Надеюсь, разберёшься с ними сам, если понадобится.

Спасибо.

[kropotkina-alice]

Сообщение от VIK_aka_TOR

если немного погуглить то можно найти

Обалдеть...
А если немного напрячься и освоить поиск по форуму, то можно найти куда проще:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button2.perform(WM_SysCommand,SC_DragMove,0);
end;

И двигаем Button2 как душе заблагорассудится...

[Человек_Борща]

В пакете Cyndy есть целый компонент для этого. Даже мини-виз. редактор можно накидать.

[Dvoishnik]

Сообщение от kropotkina-alice

Обалдеть...
А если немного напрячься и освоить поиск по форуму, то можно найти куда проще:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button2.perform(WM_SysCommand,SC_DragMove,0);
end;

И двигаем Button2 как душе заблагорассудится...

Спасибо и вам.
кстати такой код для Lazarus не пойдет так?

[Dvoishnik]

Сообщение от Человек_Борща

В пакете Cyndy есть целый компонент для этого. Даже мини-виз. редактор можно накидать.

в 6 делфе??