Сообщество Чайников

Вопрос

Как панель перемещать по форме в режиме работы программы?

Ответ

Из советов Валентина Озерова:

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

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

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

Из конференции Expert_FAQ