[cadina]

дд, кто знает подскажите

необходимо ограничить рабочую область для дочерней формы mdi приложения между компонентами navbar, statusbar, dockpanel. т.е. при разворачивании дочернаяя форма не должна залазить под navbar, dockpanel , statusbar , а должна выглядеть как показано на рисунке.

[Alegun]

Пример из 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;

[cadina]

Сообщение от Alegun

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;[/code]

как это связать в моем случае не пойму

Код:

procedure TForm1.dfgdfgdf1Click(Sender: TObject);
var
t:TForm;
begin
t:=TForm.Create(Form1);
t.FormStyle:=fsMDIChild;
t.Show;

end;

MAD: используйте теги.

[Alegun]

Код:

...
{ProjectWindow.} t.Left:=10;
...