本文整理自网络,侵删。
unit vsk;
interfaceuses Windows, Classes, Forms, Dialogs;
function Box(info:string;title: string ; Flags : Integer):Integer; //?
implementation
function Box(info:string;title: string ; Flags : Integer):Integer;begin Result := application.MessageBox(PChar(info),PChar(title),Flags);end;
end.
相关阅读 >>
Delphi comparestr 这个函数可以模糊匹配,且不区分大小写
Delphi10.3通过rest单元使类和json数据互相转换
Delphi webbrowser同时访问两个网址导致程序出错的解决办法
Delphi richedit的实现msn / qq 中的动画表情
更多相关阅读请进入《Delphi》频道 >>