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

关于MessageBox有趣的发现

做了以下一个测试程序
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())
页: [1]
查看完整版本: 关于MessageBox有趣的发现