delpro
asked on
dock on startup
I have a MainForm with a panel and 2 orher forms(form 1 and form 2)
how can i dock form1 and form2 automatic to MainForm when MainForm is shown
how can i dock form1 and form2 automatic to MainForm when MainForm is shown
ASKER
Thanks
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
//in form1
public
{ Public declarations }
procedure DockMe(NewDockSite: TWinControl);
procedure TForm1.DockMe(NewDockSite:
begin
form1.ManualDock(NewDockSi
end;
//in form2
public
{ Public declarations }
procedure DockMe(NewDockSite: TWinControl);
procedure TForm2.DockMe(NewDockSite:
begin
form2.ManualDock(NewDockSi
end;
//in Mainform
procedure TMainForm.FormShow(Sender:
begin
form1.Show;
form1.DockMe(Panel1);
form2.Show;
form2.DockMe(Panel1);
end;
This could be improved by creating a decendent form TDockingForm which has the DockMe procedure already build in. Then create forms 1 & 2 as TDockingForms. This probably is not worth the effort for just 2 forms, but may be worth considering if you have several forms to dock.
The DockMe procedure could also be improved to include alignment parameters, see the on line help for ManualDock.
procedure TForm1.DockMe(NewDockSite:
begin
form1.ManualDock(NewDockSi
end;