TForm的一些技巧(页 1) - C/C++ - 51CTO技术论坛_中国领先的IT技术社区

黑夜发表于 2006-8-29 01:15

TForm的一些技巧

一、让窗口总是在最前面
Form 的FormStyle属性设置为fsStayOnTop值。

二、动态调用窗体Form
在缺省情况下，由File/New Form生成添加入项目文件中的窗体都具有"Auto Create"（自动创建）的特性。即只要程序运行，该窗体就存在于内存中了，不管当前它是否被调用。具有这种特性的窗体一般适用于窗体属性比较固定、经常被调用的情况。其优点是速度快，缺点是占用内存。在实际程序设计中，会遇见大量类似对话框功能的窗体，它们用于显示状态或输入信息，仅须在程序中调用一下，完成其功能就行了，无需常驻内存。这时可以通过选择Project/Options/Forms，将"Auto--Create forms " 栏中相应的窗体, 如Form1，用" >" 键移动到 "Available forms"栏中，并在程序需调用该窗体处，加入下列语句：
%\M?mcWH
TForm1  *myform=new TForm1(this); ^.G XqP
myform- >ShowModal(); aS!fy+\'~9`V
delete myform;

   窗体Form1仅是在需要调用时才调入内存，调用完成后，即用delete清除出内存。这样可减少程序对内存资源的占用。
L\ QYT d
三、遍历窗体控件的方法 $\\"V;L r4Gh
要访问或修改窗体上的控件，方法很简单，以TEdit为例子：
B3~3Zi h(f
Edit1- >Text="";
Edit2- >Text=""; $|oNF"yH

但如果窗体上有十来个像Edit1 这样的控件，需要进行相同的初始化，用上面的方法一个一个地进行，岂不麻烦！所以有必要掌握遍历窗体控件的方法。在介绍该方法之前，让我们先了解一下窗体Form 的Components 和Controls 属性。参见表一。

                     表一

   属性                类型                说明

  ComponentCount          Int    目前Form上各类控件的总数 p'ZE]7f4s
Components          TCompont* 目前Form上指向所有控件的数组 upH!dD2KZC
ControlCount          Int    目前Form上某一子区域上各类控件的总数
   Controls          TControl* 目前Form上指向某一子区域上所有控件的数组 P3R0yUf.S-~!h


   Form1的ComponentCount=6, 而Panel1的ControlCount=4.，
'U-G Z$x5Q2U&H&^jQ
   其中：数组对象

Components[0]          Panel1 :Hzw] r2}2M*kn/o
Components[1]          Label1 3]F~%uy0tK
Components[2]          Edit1 Txel"ibz%XZ
Components[3]          Label2 yt1[\6ugj2s
Components[4]          Edit2 $DH#M+G|.LrQ;n
Components[5]          Button1

   数组                      对象
  Controls[0]                   Label1
  Controls[1]                   Edit1
  Controls[2]                   Label2 k4jvN.N
  Controls[3]                   Edit2
   l|FIj5tI6A

  下面这段代码完成了对Panel1上所有TEdit 控件的遍历初始化。读者稍加修改，即可对其它控件进行遍历。这里有一个小技巧，我们把需要进行初始化的控件放置在了一Panel1上，与不需要初始化的控件区分开来，这样便于编程。

AnsiString namestring="TEdit";
for(int i=1;i ControlCount;i++)
   {
   if(Panel1- > Controls[i]- > ClassNameIs(namestring))
   {
   TEdit *p=dynamic_cast  (Panel1- >Controls[i]); l!is7^J/DoL
   P->Text=""; 'a$cAE\
   } ,zq G uAoRoR
   }  S~*~:O5d6Y0x(H&l7[&Q

四、不规则窗口 ["`)Z]5lx{Qo

1.在窗口定义中,加入HRGN hWndRgn;
2.在TForm::OnCreate()消息函数最后,加入下面的代码:
   hWndRgn=::CreateEllipticRgn(0,0,Width,Height);
   ::SetWindowRgn(hWndRgn,TRUE); .ge(?3I3n7x p
3.设置TForm的属性为无标题，无边框。
4.编译连接应用程序,就可以看到一个椭圆形窗口。 !{-A _,zvI

五、MDI Form 8@0p*b'{6d ?
  J Td\ n&`Y"}Z
1.Application->CreateForm(__classid(Tjjcginput), &jjcginput);

后不用在使用显示Form的语句就可以显示出来了。 #o}3YT5t$N9{6dnJ

2.form 的onclose 事件必须用下面语句释放空间： 'k$aO6zsSj;s}
   void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action)
   { f y'u*qH"~
      Action = caFree; 3AZ4XJ+x/g
   }

页: [1]

51CTO技术论坛_中国领先的IT技术社区's Archiver

TForm的一些技巧