回 帖 发 新 帖 刷新版面

主题:修改showmessage对话框的标题,有人指点下吗?

不想用messagebox,所以。。。[em8]

回复列表 (共9个回复)

沙发

用Application来显示你的提示信息吧。

板凳

以前CSDN的伴水清清回答过这个问题。因为是很简单的问题,所以也无所谓“侵权”了,呵呵:

procedure TForm1.Button1Click(Sender: TObject);
var
  OldTitle : string;
begin
  OldTitle := Application.Title;
  Application.Title := '新的标题';
  Showmessage('看一下看一下看一下(这话长一点,是为了能看到)');
  Application.Title := OldTitle;
end;

3 楼

貌似不行。。。我调试时发现,applicaton.title的值无法更改,为什么啊?

4 楼


application.showmessage不挺好的啊,干吗啊?

5 楼

11814691(delphi编程学习交流-学习者晋级者交流群) 
11815242(delphi行业软件交流-只加做行业软件的程序员高手) 
欢迎各位高手加入,请加入适合自己的群

6 楼

ShowMessage不好

1.参数太少 可定制性差

2.需要附带引用Forms和SysUtils单元 SDK程序要避免这些

个人感觉 这个函数也就在调试的时候用一下 比较方便

但是发布程序的时候都要换成MessageBox或者 Application.MessageBox

7 楼

to 楼主:“貌似不行。。。”----行的,完全行的。

to ALL :楼主说:不想用messagebox,所以。。。

8 楼

呵呵,不好啥意思撒,是行的。。。
当时,调试时发现它的值是原来的值可能是因为程序运行到调试点时,application.title的值被还原了。。。

9 楼

不行吧
我放在程序里运行
怎么标题还是“project1"呀?!

我来回复

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