有关窗体的又一个问题

Question

我做一个嵌入式的窗体时我这样写的
procedure TMainForm.suiBut_InStockroomClick(Sender: TObject);
begin
  if not Assigned(ChildForm) then
  begin
      ChildForm:= TStockroomForm.Create(self);
      ChildForm.Parent:= self;
      ChildForm.Height:= self.Height;
      ChildForm.Width:= self.Width;
      ChildForm.Left:= self.Left;
      ChildForm.Top:= self.Top;
      ChildForm.Show;
  end;
TStockroomForm为另一个窗体
ChildForm为一个TFrom的变量
我已经校正了ChildForm为位置和大小正好和它的父窗体重合，为什么实际出现的情况是它在父窗体的右下方的位置呢？

Answer 1

ChildForm的位置应为(0,0)procedure TMainForm.suiBut_InStockroomClick(Sender: TObject);
begin
  if not Assigned(ChildForm) then
  begin
      ChildForm:= TStockroomForm.Create(self);
      ChildForm.Parent:= self;
      ChildForm.Height:= self.Height;
      ChildForm.Width:= self.Width;
      ChildForm.Left:= 0; //ChildForm.Left:= self.Left;
      ChildForm.Top: = 0; //ChildForm.Top:= self.Top;
      ChildForm.Show;
  end;