|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ToolBar и ControlBar
Приветствую.
Народ подскажите такую вещь есть два ControlBar'а и один ToolBar. Для перемещение из одного в другой у ToolBar соответственно выставлены Код:
DragKind := dkDock; DragMode := dmAutomatic; Соответственно. Toolbar можно таскать из одного ControlBar в другой. Можно даже вытаскивать их из ControlBar'ов. ToolBar тогда весит в своей формочке (панельки) и перемещается по экрану. Далее делаю так: Код:
// программно перетащить на ControlBar1 ToolBar.parent := ControlBar1; // программно перетащить на ControlBar2 ToolBar.parent := ControlBar2; Вопрос: А как мне программно вытащить ToolBar из панелек? что бы он весил в своей формочке (панельки) и перемещается по экрану. Спасибо за внимание. Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |
#2
|
|||
|
|||
Попробуй parent поставить в nil.
|
#3
|
|||
|
|||
Цитата:
Также пробовал self тож не то. Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |
#4
|
|||
|
|||
Разобрался
Код:
var p : TPoint; p := ClientToScreen(ToolBarSend.ClientRect.TopLeft); ToolBarSend.ManualFloat(Rect(P.X,P.Y,P.X+ToolBarSend.Width,P.Y+ToolBarSend.Height)); Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |