Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
1-1125575838
kyn66
2005-09-01 15:57
2005.09.25
ListView с разноцветными строками


4-1122581515
Михаил(Киров)
2005-07-29 00:11
2005.09.25
Еще раз про горячие клавиши


1-1125862322
ArtemESC
2005-09-04 23:32
2005.09.25
"Выкомпилировать" функцию


14-1125155799
ЛшдлуттнСфе
2005-08-27 19:16
2005.09.25
Если нет равноправия - дадим его!


2-1123932636
Zaero
2005-08-13 15:30
2005.09.25
Как преобразовать переменную типа String в тип PAnsiChar?