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