Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c
4-1122916656
wqer
2005-08-01 21:17
2005.09.25
Local disks


3-1123093260
Adolis
2005-08-03 22:21
2005.09.25
Password через ADO


1-1125318635
kyn66
2005-08-29 16:30
2005.09.25
Строки в ListBox разными цветами


14-1125776112
xivs
2005-09-03 23:35
2005.09.25
Недостаточно места на диске....


3-1124081213
Rentgen
2005-08-15 08:46
2005.09.25
ограничение размера для фильтра в таблице ADO




   Наверх