1个回答
2014-02-23
展开全部
showmessage标题默认为工程名,可以改工程标题。(Project-->Options-->Application-->Title)
改Delphi自带代码的话比较麻烦,推荐还是用MessageBox.
写个过程放在代码段最前段调用
procedure ShowMessage(const Msg, Title: string);
begin
MessageBox(Application.Handle, PChar(Msg), PChar(Title), MB_OK);
end;
//调试即可
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Test','看看标题');
end;
改Delphi自带代码的话比较麻烦,推荐还是用MessageBox.
写个过程放在代码段最前段调用
procedure ShowMessage(const Msg, Title: string);
begin
MessageBox(Application.Handle, PChar(Msg), PChar(Title), MB_OK);
end;
//调试即可
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Test','看看标题');
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询