动态改变编辑窗体Caption的方法

方法1: 利用窗体OnShow事件（后面不会加“-编辑”或“-查看”）
procedure TfrmCustomerBiz.FormShow(Sender: TObject);
begin
  inherited;
  SmartFormCaption := '客户交易记录';
  ...
end;

 

方法2: 利用编辑窗体SmartEditor1控件的BeforeLoadFormData事件（后面会加“-编辑”或“-查看”）
procedure TfrmCustomerBiz.SmartEditor1BeforeLoadFormData(Sender: TObject);
begin
  inherited;
  SmartFuncName := '客户交易记录';
end;