有下面两个语句,语句1无法编译通过,语句2正常运行:
-------------------------------------------------------------
1.
var sTemp : String;
begin
    sTemp := 'xxxxxx';
    Messagebox(self.handle,sTemp,'',MB_OK+MB_ICONINFORMATION);
end;
------------------------------------------------------------
2.
var sTemp : String;
begin
    sTemp := 'xxxxxx';
    Showmessage(sTemp);
end;
------------------------------------------------------------

解决方案 »

  1.   

    1.
    var sTemp : String;
    begin
        sTemp := 'xxxxxx';
        application.Messagebox(self.handle,sTemp,'',MB_OK+MB_ICONINFORMATION);
    end;
      

  2.   

    两个函数名不同,当然是有区别的了!MessageBox的使用方法:
      Messagebox(self.handle,PChar(sTemp),'title',MB_OK+MB_ICONINFORMATION);
      

  3.   

    1.
    var sTemp : String;
    begin
        sTemp := 'xxxxxx';
        Application.Messagebox(sTemp,'',MB_OK+MB_ICONINFORMATION);
    end;
      

  4.   

    messagebox()的最大好处是按钮上的文字是汉字,且有各种设置
      

  5.   

    1,文件大小区别;messagebox(handle,'a','a',1);一个按钮事件364K;
    SHOWMESSAGE(‘A’)同样的事件384k