messageBox 中顯示變量及實作換行

前言

總結下今天使用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('議價後應收，請核對！'+ ''#'' +edtYJ.Text),'提示',MB_OKCANCEL);
           

方式二：

MessageBox(Handle,Pansichar('議價後應收，請核對！'+#13#10 +edtYJ.Text),'提示',MB_OKCANCEL);
           

效果如圖：

以上是個人總結所得，若有不當之處，請在評論中指出。