回 帖 发 新 帖 刷新版面

主题:新手求助 showmessage!

请教高手指点一下。

我用showmessage命令,弹出窗口(如图),但是不知道怎么才能修改窗口名称。

我知道用messagebox可以修改。但是怎么用showmessage修改呢??

多谢各位大侠指点
代码


begin
    ShowMessage('zu Phase 1');
    frmjisuan1.Show;
    frmjisuan1.BitBtn3.Enabled:=true;
  end

回复列表 (共4个回复)

沙发

SHOWMESSAGE没这个功能,用APPLICATION.MessageBox

板凳

同意楼上。实在想用ShowMessage,就要知道这个窗体的窗题受影响于application.title。如下:

var
  OldTitle : string;
begin
  OldTitle := Application.Title;
  ShowMessage('zu Phase 1');
  Application.Title := OldTitle;
  SetLength(OldTitle, 0);
  //.....
end;

3 楼

漏了一句,纠正如下:

var
  OldTitle : string;
begin
  OldTitle := Application.Title;
  Application.Title := '你好,这是新标题';
  ShowMessage('zu Phase 1');
  Application.Title := OldTitle;
  SetLength(OldTitle, 0);
  //.....
end;

4 楼

用MessageBox好些
MesssageBox(Text.Caption:Flags:Longint):Integer;
例如:
Application.MessageBox('需要存盘盘吗?','提示信息',MB_OKCANCEL);
返回值
1,IDOK
2,DICANCEL
3,IDABORT
4,IDRETRY
5,IDIGNORE
6,IDYES
7,IDNO

我来回复

您尚未登录,请登录后再回复。点此登录或注册