属性名
|
值
|
注释
|
Caption
|
窗体模板
|
|
Hint
|
这是一个示范窗体
!
|
可以在激活事件中显示在主窗体状态栏中
|
FormStyle
|
fsMIDChind
|
作为
MID子窗体
|
Positin
|
poMainFormCenter
|
在主窗体居中显示
|
BorderStyle
|
bsSingle
|
边框样式
|
Font->Charset
|
GB2312_CHARSET
|
字符集编码
|
Font->Name
|
宋体
|
字符集名称
|
Font->Size
|
9
|
字体大小
|
KeyPreView
|
True
|
按键事件
|
属性名
|
值
|
注释
|
Name
|
StateDS
|
|
属性名
|
值
|
注释
|
Name
|
FrmCaptionLab
|
|
Caption
|
输入窗口标题
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBClient, StdCtrls, DBCtrls, Mask,UDM, Grids, DBGrids, ComCtrls,
procedure DBComboBox1Enter(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure StateDSStateChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TFmExample.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TFmExample.FormCreate(Sender: TObject);
procedure TFmExample.FormKeyPress(Sender: TObject; var Key: Char);
procedure TFmExample.StateDSStateChange(Sender: TObject); //显示数据集状态
var sDateState:string;
procedure TFmExample.FormActivate(Sender: TObject);
function TFmExample.ChangeEnableTrue:variant; //将Tag=86控件的设为可用
if Controls[I].Tag=86 then Controls[I].Enabled:=True;
function TFmExample.ChangeEnableFalse:variant; //将Tag=86控件的设为不可用
if Controls[I].Tag=86 then Controls[I].Enabled:=False;
使用的时候在Flie->New->Other 然后找到这个模板窗体(Delphi7在名称和工程同名的选项卡中,Delphi2006是在inheritable items 中),然后建立的窗体就会继承这个窗体的特性。日后只要修改这个模板窗体,那么所有继承自这个窗体的子窗体都会被修改。