| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Docking в Delphi 2005 [Win95/98, WinME, Win2k, WinXP]

kblc ©   (2005-08-29 22:53:00) 

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

 Есть форма Form1, на ней лежит панелька Panelс DockSite=TRUE, а не панельке лежит TabSet TDockTabSetc 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 11:13:00) [1]

big thnx!

---

Чапаев   (2005-08-30 09:44:00) [2]

RTFM ManualFloat(), ManualDock().

---

kblc   (2005-08-30 09:30:00) [3]

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

---

kblc   (2005-08-30 06:13:00) [4]

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

---

Наверх