Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1260315
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-05-26 17:33:23



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;

我是來頂老之地!



--------------------------
新闻:微软触控平台Surface SP1发布
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看
阅读(1249) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~