Question

Delphi显示代码方法

'您的专业为：'+i+#13#10+'您选择的学期为：'+j+#13#10+'您选择的课程为：'+#13#10+'-----------------'+#13#10+listbox2.Items.GetText+'-----------------'+#13#10+'您的信息已保存在C:\已选课程信息.txt中'

------以下是问题-----
怎么利用messagebox（）；函数输出上面的一些信息？
不要用showmessage（），大侠们教下，谢谢了！

Answer 1

messagebox()语法：
int MessageBox(
HWND hWnd, // 窗体句柄
LPCTSTR lpText, //需要显示的信息
LPCTSTR lpCaption, //消息窗体的标题
UINT uType //实际上是消息窗体上的按钮
);

先定义一个字符变量
var
ShowText: string;

再将你要显示的信息赋值给变量ShowText
ShowText := '您的专业为：' + i
+ #13#10
+ '您选择的学期为：' + j
+ #13#10
+ '您选择的课程为：'
+ #13#10
+ '-----------------'
+ #13#10
+ listbox2.Items.GetText
+ #13#10
+ '-----------------'
+ #13#10
+ '您的信息已保存在C:\已选课程信息.txt中';

然后调用messagebox()函数
messagebox(Self.Handle, ShowText, '提示', MB_OK);

需要说明事项：
如果上面使用的i和j是integer类型需要转换成string类型，使用函数IntToStr(i)。

Answer 2

你看帮助啊，里面的提示内容，就是你上面的文字