关闭

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

442人阅读 评论(0) 收藏 举报

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

 

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

 

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1594720次
    • 积分:15717
    • 等级:
    • 排名:第706名
    • 原创:149篇
    • 转载:843篇
    • 译文:0篇
    • 评论:92条
    最新评论