Хочу таскать панели, но как?

← →
De (2005-12-16 17:15) [0]

Привет, All!
в своем приложении хочу реализовать возможность перемещения панелей на форме
в качестве перетаскиваемого компонента хотел использовать TPanel подойтет ли он или посоветуете что нибудь другое
вопрос как это реализовать (что почитать)

← →
(CHALING 32)S K i N E R © (2005-12-16 18:50) [1]

{Так можно таскать мышкой 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;

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

← →
Юрий Зотов © (2005-12-16 19:14) [2]

> (CHALING 32)S K i N E R © (16.12.05 18:50) [1]
Не любые, а только оконные (потомки TWinControl).

> De (16.12.05 17:15)
Это конференция по разработке компонентов, а по их использованию. Поэтому - либо Вы пишете свой компонент, либо ветка будет закрыта.

Можно чуть сложнее сделать (Только зачем такие трудности?);
глобальная переменная, move: boolean; x, y: Integer;
При OnMouseDown move := true; и запоминаем координаты;
при OnMouseUp move := false;
при OnMouseMove смотрим, if move then перемещаем;

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

Хочу таскать панели, но как? Найти похожие ветки