Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Как перетаскивать компоненты в Run-Time?
Опубликовано codeLocker в 31.07.2008 в 14:19.
Возьмите форму, бросьте на нее панель, на onMouseDown панели прицепите код:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;
Теперь в run-time панель можно таскать как в дизайне...
Материал похожий на Как перетаскивать компоненты в Run-Time?
- Как перетаскивать (Drag and Drop) выделенный текст между компонентами Memo?
- Как перетаскивать файлы?
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 1 гость.
Статистика
Всего материалов: 1387