<b>TForm常用本领</b>[VC/C++编程]

1、让窗口老是在最前面

Form 的FormStyle属性设置为fsStayOnTop值.

2、 动态调用窗体Form

在缺省情形下, 由File/New Form生成增添入项目文件中的 窗体都具有"Auto Create"（自动成立）的特点.即只要程序运行,该窗体就存在于 内存中了,不管当前它能否被调用.具有这种特点的窗体普通实用于窗体属性对比 固定、常常被调用的情形.其长处是速度快,缺陷是占用内存.在实际程序设 计中,会碰见大量近似对话框功效的窗体,它们用于显示状况或输入信息,仅须在程 序中调用一下,完成其功效就行了,无需常驻内存.这时可以通过挑选Project/Options/Forms,将"Auto--Create forms " 栏中呼应的窗体, 如Form1,用" >" 键移动到 "Available forms"栏中,并在程序需调用该窗体处,加入下列语句:

TForm1　*myform=new TForm1(this);

myform- >ShowModal();

delete myform;

窗体Form1仅是在需求调 用时才调入内存,调用完成后,即用delete排除出内存.这样可削减程序对内存资源 的占用.

3、遍历窗体控件的办法

要拜候或改正窗体上的控件,办法很简单,以TEdit为例子:

Edit1- >Text="";

Edit2- >Text="";

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

表 一

属性　　　　　　　　 范例　　　　　　　　　阐明
　 ComponentCount　　　　　　Int　　　目前Form上各类控件的总数
　　 Components　　　　　 TCompont*　 目前Form上指向全部控件的数组
　  ControlCount　　　　　　 Int　　　目前Form上某一子区域上各类控件的总数
　　  Controls　　　　　　TControl*　 目前Form上指向某一子区域上全部控件的数组
 
　　　 Form1的ComponentCount=6, 而Panel1的ControlCount=4.,
　　　 此中:数组对象
　　 Components[0]　　　　　 Panel1
　　 Components[1]　　　　　 Label1
　　 Components[2]　　　　　 Edit1
　　 Components[3]　　　　　 Label2
　　 Components[4]　　　　　 Edit2
　　 Components[5]　　　　　 Button1
　　  数 组　　　　　　　　　　　　对 象
　 Controls[0]　　　　　　　　　　 Label1
　 Controls[1]　　　　　　　　　　 Edit1
　 Controls[2]　　　　　　　　　　 Label2
　 Controls[3]　　　　　　　　　　 Edit2

下面这段代码完成了对Panel1上全部TEdit 控件的遍历初始化.读者略加改正,便可对别的控件举行遍历.这里有一个小本领, 我们把需求举行初始化的控件安排在了一Panel1上,与不需求初始化的控件区脱离 来,这样便于编程.

　 AnsiString namestring="TEdit";
　  for(int i=1;i< Panel1- > ControlCount;i++)
　　  {
　　  if(Panel1- > Controls[i]- > ClassNameIs(namestring))
　　　  {
　　　  TEdit *p=dynamic_cast < TEdit* > (Panel1- >Controls[i]);
　　　  P->Text="";
　　　  }
　　  } 

4、不法则窗口

1.在窗口定义中,加入HRGN hWndRgn;

2.在TForm::OnCreate()消息函数最后,加入下面的代码:

hWndRgn=::CreateEllipticRgn(0,0,Width,Height);

::SetWindowRgn(hWndRgn,TRUE);

3.设置TForm的属性为无标题,无边框.

4.编译连策利用程序,便可以看到一个椭圆形窗口.

5、MDI Form

1.Application->CreateForm(__classid(Tjjcginput), &jjcginput);

后不用在利用显示Form的语句便可以显示出来了.

2.form 的onclose 事件必须用下面语句释放空间:

void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action)
　　　 {
　　　　 Action = caFree;
　　　  }