|
|
|
|
Перемещение мышью панели на форме во время выполнения программы
Прислал Aleksey msalex@tomcat.ru:
|
{Так можно таскать мышкой TPanel по форме в run-time'е. Поместите на форму TPanel и напишите обработчик события OnMauseDown,
запустите программу и задвинте эту панель подальше.}
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
constSC_DRAGMOVE = $F012;
beginReleaseCapture;
Panel1{а если сюда написать Form1, то можно таскать форму по экрану}.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
|
В.О.: на самом деле таким образом можно таскать по форме любые визуальные компоненты. [000116]
|
|
|
|
|