|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
размеры рабочей области для mdiChild окна
дд, кто знает подскажите
необходимо ограничить рабочую область для дочерней формы mdi приложения между компонентами navbar, statusbar, dockpanel. т.е. при разворачивании дочернаяя форма не должна залазить под navbar, dockpanel , statusbar , а должна выглядеть как показано на рисунке. |
#2
|
||||
|
||||
Пример из drkb
Код:
interface procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED; implementation procedure TMainForm.CMShowingChanged(var Message: TMessage); var theRect: TRect; begin inherited; theRect := GetClientRect; AlignControls(nil, theRect); end; Код:
var ProjectWindow: TWndProject; begin If not ProjectActive then begin LockWindowUpdate(ClientHandle); ProjectWindow:=TWndProject.Create(self); ProjectWindow.Left:=10; ProjectWindow.Top:=10; ProjectWindow.Width:=373; ProjecTwindow.Height:=222; ProjectWindow.Show; LockWindowUpdate(0); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
как это связать в моем случае не пойму Код:
procedure TForm1.dfgdfgdf1Click(Sender: TObject); var t:TForm; begin t:=TForm.Create(Form1); t.FormStyle:=fsMDIChild; t.Show; end; Последний раз редактировалось M.A.D.M.A.N., 05.07.2014 в 18:15. |
#4
|
||||
|
||||
Код:
... {ProjectWindow.} t.Left:=10; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |