怎么样吧String类型的转换为PAnsiChar类型的呢?
本来只是一个消息的提示Showmessage(),
但是这个只有一个参数,不能修改标题栏,标题栏只能显示exe的名字。
于是换了一个MesssageBox(),
这个倒是可以,但是里面的第二个参数是PAnsiChar类型的,于是报错。
最终目的就是能够显示有一个标题栏能够自由显示的消息提示框。
更好的办法请教中。。。。。
------解决方案--------------------
“但是这个只有一个参数,不能修改标题栏,标题栏只能显示exe的名字。”
- C/C++ code
//这样子就可以了 Application->MessageBox("3860!","标题信息:",MB_ICONWARNING) ;
------解决方案--------------------
- Delphi(Pascal) code
procedure TForm1.showmsg(msg:string); var c:PAnsiChar; begin c:=Pchar(msg); MessageBox(Form1.Handle ,c,'message',MB_ok); end; procedure TForm1.Button1Click(Sender: TObject); begin showmsg('3860提示你:'); end;
------解决方案--------------------
- Delphi(Pascal) code
precedure showmsg(msg: String) begin MessageBox(0, PChar(msg), 'message', MB_OK); end;