首页
社区
课程
招聘
关于DELPHI编程的问题
发表于: 2005-2-23 23:39 6180

关于DELPHI编程的问题

2005-2-23 23:39
6180
procedure TfrmPageControl.FormCreate(Sender: TObject);
{1:这是什么意思?事件产生时自动调用的函数对吗??Sender: TObject 又是什么意思}
begin            //开始
  with pgcDemo do       //2:什么意思?
  begin                  
    HotTrack := True;      //3:HotTrack是个什么属性???
    TabPosition := tpBottom;       //4:什么意思??
  end;
end;

procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
{5:明明取名为frmPageControl,为什么却变成了TfrmPageControl???}
var                //声明
  tmpTabSheet: TTabSheet;     //6:什么意思???
begin
  if pgcDemo.PageCount > 6 then    //7:如果pgcDemo 页面大于6时,那么
    Exit;                          //退出.8:Exit是个什么词???
  tmpTabSheet := TTabSheet.Create(pgcDemo);    //9:什么意思??
  tmpTabSheet.Caption := ' 页面' + IntToStr(pgcDemo.PageCount + 1);
   {10:什么意思??}
  tmpTabSheet.PageControl := pgcDemo; //11:什么意思??
end;

开新版了..可以发一些关于编程的问题..好YE..

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (6)
雪    币: 342
活跃值: (323)
能力值: ( LV9,RANK:450 )
在线值:
发帖
回帖
粉丝
2
procedure TfrmPageControl.FormCreate(Sender: TObject);//事件处理过程,FormCreate一般在窗口创建时调用的,但是也不绝对,因为可以控制.
begin            //开始
  with pgcDemo do       //2:什么意思? //with里面的相当于pgcdemo.hottrack//pgcdemo.tabposition//只是为了简便所以用了with
  begin                  
    HotTrack := True;      //3:HotTrack是个什么属性???//控件都不知道是什么属性不敢乱定义
    TabPosition := tpBottom;让控件一直保持在底部
  end;
end;

procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
{5:明明取名为frmPageControl,为什么却变成了TfrmPageControl???}//Delphi很多类都是T开头的啊.比如EDit控件,他的类就是Tedit
var                //声明
  tmpTabSheet: TTabSheet;     //6:什么意思???//申明一个变量,类型为TTabsheet类
begin
  if pgcDemo.PageCount > 6 then    //7:如果pgcDemo 页面大于6时,那么
    Exit;                          //退出.8:Exit是个什么词???退出处理过程
  tmpTabSheet := TTabSheet.Create(pgcDemo);    //9:什么意思??初始化Tmptabsheet变量
  tmpTabSheet.Caption := ' 页面' + IntToStr(pgcDemo.PageCount + 1);
   {10:什么意思??}//把tmptabsheet的caption属性改为当前页面
  tmpTabSheet.PageControl := pgcDemo;
end;
只能翻译这么多拉.
开新版了..可以发一些关于编程的问题..好YE..
2005-3-10 08:47
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
我补充几句:

procedure TfrmPageControl.FormCreate(Sender: TObject);
{1:这是什么意思?事件产生时自动调用的函数对吗??Sender: TObject 又是什么意思}

FormCreate是窗体建立时调用的过程,Sender:TObject是指所有的对象和控件,使用它可以方便的调用其他控件而不需要重新定义。

    HotTrack := True;      //3:HotTrack是个什么属性???

这个是一个鼠标热点,PageControl控件上面有一个TAB一个TAB,类似书签的东西,正常情况下需要鼠标点击进行切换。设置此属性后,鼠标移上去会自动切换。

procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
{5:明明取名为frmPageControl,为什么却变成了TfrmPageControl???}

这是因为DELPHI中所有的控件都是继承来的,而窗体也是继承来的,我们每生成一个窗体,实际是先生成一个窗体类。在你的程序前面能看到这样的代码:TfrmPageControl = class(TForm),这表示你现在这个窗体的类是从TForm继承来的。然后还有下面的代码:frmPageControl: TfrmPageControl;表示窗体frmPageControl是基于TfrmPageControl类的。

  tmpTabSheet: TTabSheet;     //6:什么意思???

这个和上面的解释一样,创建TTabSheet类的控件。但是这里和上面不一样。上面的代码中,frmPageControl窗体是设计时就创建好了,算是静态创建。而现在这个tmpTabSheet是运行时才创建,在窗体设计阶段你是看不见它的。只有运行时才会有。

    Exit;                          //退出.8:Exit是个什么词???

Delphi中,Exit表示结束当前的过程或者函数。

  tmpTabSheet := TTabSheet.Create(pgcDemo);    //9:什么意思??

因为tmpTabSheet是动态创建的,虽然我们已经声明了控件变量的类型,但是需要给此控件初始化,上面的语句相当于调用构造函数。pgcDemo参数为指定控件的父亲,也就是控件在哪里创建。

  tmpTabSheet.PageControl := pgcDemo; //11:什么意思??

指定tmpTabSheet的Page Control由哪个控件控制。
2005-3-22 09:11
0
雪    币: 211
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
推荐<delphi5开发人员指南>,我正在看.
2005-3-24 19:48
0
雪    币: 215
活跃值: (40)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
5
再补充一点:
with pgcDemo do       //2:什么意思? //with里面的相当于pgcdemo.hottrack//pgcdemo.tabposition//只是为了简便所以用了with

不但是为了简便,可以实现编译优化。
2005-3-26 11:53
0
雪    币: 342
活跃值: (323)
能力值: ( LV9,RANK:450 )
在线值:
发帖
回帖
粉丝
6
最初由 蓝色光芒 发布
再补充一点:
with pgcDemo do //2:什么意思? //with里面的相当于pgcdemo.hottrack//pgcdemo.tabposition//只是为了简便所以用了with

不但是为了简便,可以实现编译优化。

支持
2005-3-26 12:32
0
雪    币: 204
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
晕,估计没学过delphi
我的毕业设计要用这个做
我还是喜欢vc的呵呵
2005-3-26 13:08
0
游客
登录 | 注册 方可回帖
返回
//