如何自定义MDI主窗体默认的标题文字？

Question

MDI主窗体的标题文字默认为(子窗体最大化) “主窗体标题- [活动子创体标题]” ，能不能自定义？例如 “主窗体标题:活动子创体标题”。该怎么做呀？在什么地方处理？

Answer 1

截获主窗口的WM_GETTEXT： 
protected: 
  procedure WMGetText(var Message: TWMGetText); message WM_GETTEXT;procedure TMainForm.WMGetText(var Message: TWMGetText); 
const 
  Cap: String = '主窗口'; 
begin 
  with Message do begin 
    StrPCopy(Text, Cap); 
    Result := Length(Cap); //把这里改改就好了
  end; 
end;