有如下的代码,有几个地方不清楚,指教~~

Question

procedure Tt_main.IntercontrolExecute(Sender: TObject);
var
  rect1: Trect;
begin
  if not t_interfase.Visible then
  begin
    if not Panel3.Visible then
      Panel3.Show;
    t_interfase.Visible := True;
    Rect1:= Panel3.ClientRect;
    ShowInter.Caption := '显示界面';
    //将窗体t_interfase放入面板中
    t_interfase.Dock(panel3,rect1);
    panel3.DockManager.InsertControl(t_interfase,alclient,t_interfase);
  end
  else
  begin
    ShowInter.Caption := '隐藏界面';
    Panel3.Hide;
    t_interfase.Visible := False;
  end;
end;Trect是什么类型啊?
ClientRect属性是什么意思?
t_interfase.Dock(panel3,rect1);这个代码啥意思?

Answer 1

TRect是一个矩形区域，用左上角的点和右下角的点来确定位置
ClientRect就是客户区的区域
t_interfase.Dock(panel3,rect1); 是将t_interfase这个控件拖放到Panel3上面看看这样的代码，应该可以理解是什么意思：
var Rect1 : TRect;
begin
  Panel1.DockSite := True;
  Panel1.Color := clRed;
  Panel2.DragKind := dkDock;
  Panel2.DragMode := dmAutomatic;
  Rect1 := Panel1.ClientRect;
  Panel2.Dock(Panel1, Rect1);
  Panel1.DockManager.InsertControl(Panel2,alClient,Panel2);
end;