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

Возьмите форму, бросьте на нее панель, на 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 панель можно таскать как в дизайне...

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

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Подробности: Родительская категория: Перетаскивание объектов, Drag and Drop, Docking; Категория: Drag and Drop внутри своего приложения

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!

JComments

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