Question

delphi messagebox动态显示

如题，我想用messagebox来动态显示文本框里面的内容,程序如下
str1:=edt4.Text;
MessageBox(Handle,'用户名'''+str1+'''已经存在'+#13'请换一个用户名！','提示',MB_OK);
可是运行不了，请问给为高手怎么办啊，小弟着急啊，谢谢了！

Answer 1

楼上的和问题有什么不一样吗？
应该是你忘记引用系统单元了吧。
或者
Application.MessageBox(pchar('用户名'''+str1+'''已经存在'+#13'请换一个用户名！'),
pchar(Application.Title),MB_ICONINFORMATION + mb_Ok)
试一下

Answer 2

MessageBox(Handle,'用户名:'+str1+':已经存在'+#13'请换一个用户名！','提示',MB_OK);