Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

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().

---

← →
kblc ©   (2005-08-30 11:13) [4]

big thnx!

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.053 c