Docking в Delphi 2005

← →
kblc © (2005-08-29 22:53) [0]

Уважаемые мастера, помогите пожалуйста решить проблемку:

Есть форма Form1, на ней лежит панелька Panel с DockSite=TRUE, а не панельке лежит TabSet TDockTabSet c DockSite=FALSE и DestinationDockSite=Panel. Когда я "вручную" (т.е. ташю окошко на панель) доклю окошко с DragKind=dkDock и DragMode=dmAutomatic то оно автоматически доклиться, появляеться заголовок окна и кнопки закрыть и "открепить" (этим уже занимаеться TDockTabSet). А как мне это реализовать в коде? Я делаю так: procedure Form1.Dock1(const Control: TWinControl; const Panel: TPanel; const TabSet: TDockTabSet); var ARect: TRect; begin //в этом случаем появиться вкладка в TabSet, но окно не будет закреплено!!! а мне его НУЖНО закрепить Control.Dock(TabSet,ARect); TabSet.ShowDockClient(Control); //а если сделать так, то TabSet не создаст заголовок окна и те самые кнопки //Control.Dock(Panel,ARect); end; а использую так: Dock1(fm_Main,TabSet.DestinationDockSite,TabSet);

← →
kblc © (2005-08-30 06:13) [1]

Помогите плиззз...

← →
kblc © (2005-08-30 09:30) [2]

Неужели никто не знает?

← →
Чапаев © (2005-08-30 09:44) [3]

RTFM ManualFloat(), ManualDock().

big thnx!

Docking в Delphi 2005 Найти похожие ветки