关于MessageBox有趣的发现

clb929 · 发表于 2013-8-4 16:14:59

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

做了以下一个测试程序
procedure TForm1.Button1Click(Sender: TObject);
Var
  i: Integer;
  j: String;
begin
  for i:= 0 to 100 do
begin
   j:= IntToStr(i);
   MessageBox(handle, PChar('第 '+j+' 次运行'), '提示', MB_OK);
end;
end;

得出2个结论
1、MessageBox跳出来的时候，循环是暂停的
2、要在MessageBox里面显示出字符串变量，必须用PChar()转换成PChar类型。
Over

猫儿不想叫 · 发表于 2013-8-5 17:25:59

哦哟试一下

wozengcong · 发表于 2014-1-25 21:56:30

DELPHI2009以上版本，第二个问题不成立，不能用PChar,要使用PWideChar(WideString())

账号		自动登录	找回密码
密码			立即注册

[争议讨论] 关于MessageBox有趣的发现

马上注册，结交更多好友，享用更多功能^_^