Question

Delphi弹出对话框怎么用？

Delphi弹出对话框怎么用？有一个label的caption，我想显示在对话框里，但又不想用showmessage（），用messagebox（）提示类型不对，请问要怎么写？给个具体的例子，谢谢！

Answer 1

使用 MessageBox 函数的实例：

MessageBox(Handle, '需要提示的信息文字。', '信息提示', MB_OK + MB_ICONINFORMATION);

效果如下图：

追问

这个提示的信息文字，我想换成label的caption

但又提示类型不对，有什么好办法吗

提示，incompatible type:string and pchar

追答

MessageBox(Handle, PChar(Label1.Caption), '信息提示', MB_OK + MB_ICONINFORMATION);

追问

还是那个提示

追答