delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
有如下的代码,有几个地方不清楚,指教~~ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061217011934260.html
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);这个代码啥意思?

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;

我是來頂老之地!

posted on 2009-05-12 16:02 delphi2007 阅读(159) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。