Советы по Delphi
Перемещение мышью панели на форме во время выполнения программы
Прислал Aleksey msalex@tomcat.ru:
|
{Так можно таскать мышкой 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; |
В.О.: на самом деле таким образом можно таскать по форме любые визуальные компоненты. [000116]
