Советы по 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]




Содержание  Назад  Вперед