{Так можно таскать мышкой 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;
|
Перемещение мышью панели на форме во время выполнения программы