文档介绍:基类设计说明表
版本: 编制: 审核: 批准: 编写日期:
基类名称
TFrm_Base_Dialog
父类名称
TFrm_Base
目的、作用、局限
目的:使所有条件Form有统一的接口
作用:TFrm_Base_Condition是所有条件Form的基类
待完善
组成
btn_ok: TButton;//[确定]按钮
btn_cancel: TButton;[取消]按钮
设计
说明
procedure (Sender: TObject);
var
i:integer;
begin
inherited;
for i:=0 to ControlCount-1 do
begin//按OK按钮时进行全部检查
if Controls[i] is TEdit then
begin
if Assigned(TEdit(Controls[i]).OnExit) then
TEdit(Controls[i]).OnExit(Controls[i]);
end
else if Controls[i] is TMaskEdit then
begin
if Assigned(TMaskEdit(Controls[i]).OnExit) then
TMaskEdit(Controls[i]).OnExit(Controls[i]);
end
else if Controls[i] is TDBEdit then
begin
if Assigned(TDBEdit(Controls[i]).OnExit) then
TDBEdit(Controls[i]).OnExit(Cont