messageBox 中显示变量及实现换行

来源:互联网 发布:淘宝网鱼缸 编辑:程序博客网 时间:2024/05/29 03:01

前言

总结下今天使用messageBox过程中解决的一些问题,共勉。
messageBox格式使用请参考:
delphi中Application.MessageBox函数用法详解

1、显示变量

直接上干货(代码):

vars:string;....s:='存档失败';Application.MessageBox(PChar(s),'错误',MB_ICONERROR);//窗口标识可以含多个,例如下面表示带问号,同时含有yes和no两个按钮Application.MessageBox('要保存文件内容吗?', '保存', MB_YESNO or MB_ICONQUESTION);

进阶版:变量和字符混用

MessageBox(Handle,Pansichar('议价后应收,请核对!' +edtYJ.Text),'提示',MB_OKCANCEL);

2、换行

方式一:

MessageBox(Handle,Pansichar('议价后应收,请核对!'+ ''#13'' +edtYJ.Text),'提示',MB_OKCANCEL);

方式二:

MessageBox(Handle,Pansichar('议价后应收,请核对!'+#13#10 +edtYJ.Text),'提示',MB_OKCANCEL);

效果如图:
换行


以上是个人总结所得,若有不当之处,请在评论中指出。

1 0