How to fixed MDI child window display position unchanged, and the mouse to click any child form can&-CodePudding

Please expert help, code how to implement

Form1 MDI form type
.h
Private://User declarations
Void __fastcall CreateMDIChild (const String Name);

.cpp
Void __fastcall TForm1: : ToolButton3Click (TObject * Sender)
{

ToolButton3 CreateMDIChild (" ");

}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : CreateMDIChild (String Name)
{
If (Name=="ToolButton3")
{
TForm2 * Form2;
Form2=new TForm2 (Application);
Form1 - & gt; Caption=Form1 - & gt; ActiveMDIChild - & gt; Name;

If (Form1 - & gt; Caption. Length () & lt; 6)
{
Form2 - & gt; Width=Form1 - & gt; Width * 0.95;
Form2 - & gt; Height=Form1 - & gt; Height * 0.80;
}
The else
{
FLOAT WH=StrToFloat (Form1 - & gt; Caption. The SubString (Form1 - & gt; Caption. Length (), 1 + 1));
Form2 - & gt; Width=Form1 - & gt; Width/WH;
Form2 - & gt; Height=Form1 - & gt; Height/WH;
}

}

}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --