Как перетаскивать компоненты в Run-Time?

Previous Top Next

Возьмите форму, бросьте на нее панель, на onMouseDown панели прицепите код:

Code:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

{©Drkb v.3(2007): www.drkb.ru}

begin

ReleaseCapture;

Panel1.Perform(WM_SYSCOMMAND, $F012, 0);

end;

Теперь в run-time панель можно таскать как в дизайне...

©Drkb::00369

Взято с Vingrad.ru http://forum.vingrad.ru