谢谢大家! (100分)

  • 主题发起人 主题发起人 dljsky
  • 开始时间 开始时间
var
s:string
begin
s:=Edit1.text;
Application.MessageBox(PChar('某某变量的值:'+s),提示',MB_OK+Mb-IconInformation);
end;
 
var
s_s: Pchar;
bb: ***;
begin
//转换成字符型
s_s := ***(bb);
Application.MessageBox(s_s, 'Message', MB_OK + MB_ICONQUESTION);
end;
end;
 
if Application.MessageBox(pChar(str),'提示',MB_IconQuestion or Mb_YesNo)=idYes then
 
var
XXX:****;
begin
XXX:=****;
Application.MessageBox(PChar(Format('%s',[XXX])),'錯誤',MB_OK + MB_ICONERROR);
end;
 
别人答完了,我来混分!
 
我以前不会跟踪的时候基本上都是用ShowMessage来DEBUG [:D]
 
if Application.MessageBox(QuotedStr(edit1.text),'提示',MB_IconQuestion + Mb_YesNo)=idYes then
 
可以!
Application.MessageBox(handle,pchar('在此输入内容'),'在此输入标题'+MB_OK);
内容和标题都可以用变量代替.
 
后退
顶部