请各位大虾帮我看看,这句是什么意思?

请各位大虾帮我看看,这句是什么意思? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061217220452133.html
此段代码为书中的例子的一部分代码,讲的是用类引用类型动态创建控件,其中有一句代码不明白其含义,请各位大虾赐教!  
   
  procedure   TMainForm.PanelContainerMouseDown(Sender:   TObject;  
      Button:   TMouseButton;   Shift:   TShiftState;   X,   Y:   Integer);  
  var  
      NewControl:   TControl;  
      NewControlName:   string;  
  begin  
      if   Button   =   mbLeft   then  
      begin  
          NewControl   :=   FControlClassRef.Create(Self);     //   创建部件对象  
          NewControl.Parent   :=   Self.PanelContainer;     //   设置部件的宿主  
          NewControl.Visible   :=   false;     //   隐藏部件  
          NewControl.Left   :=   X;     //   设置部件的位置坐标  
          NewControl.Top   :=   Y;     //   设置部件的位置坐标  
          Inc(FControlClassCount);     //   计数器增1  
          NewControlName   :=   FControlClassRef.ClassName()   +   IntToStr(FControlClassCount);  
          Delete(NewControlName,   1,   1);     //   这句是什么意思呢?好象删除对程序没影响.  
          NewControl.Name   :=   NewControlName;     //   设置部件名称  
          NewControl.Visible   :=   true;     //   显示部件  
      end;  
  end;  
 

Delete(NewControlName,   1,   1);     //   这句是什么意思呢?好象删除对程序没影响.  
  ===================================================================================  
  这句话是在确定控件名称的时候,去掉前面的'T'。比如控件是TEdit,FControlClassCount=1,  
  NewControlName   :=   FControlClassRef.ClassName()   +   IntToStr(FControlClassCount);  
  就会是‘TEdit1’,去掉'T',NewControlName就等于'Edit1'

Delete(NewControlName,   1,   1);     补充:这个调用是删除NewControlName这个字符串的第一个字符。

to   maozefa(阿发伯):  
  谢谢!!

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/14/1310946.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值