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