delphi 对话框单元

本文整理自网络，侵删。

 
unit vsk;

interface
uses
   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 判断文件存在的一个api函数

tstringlist 常用操作

Delphi纯api窗体程序

firemonkey使用android的路径信息

Delphi xe10 针对全面屏手机端无法全面显示，下方显示黑条的处理

dll 的静态调用实例代码

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi xe 取得硬盘序列号代码

Delphi twebbrowser出现 method pastehtml not supported by automation object 解决方法

Delphi文件无法拖拽功能失效

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 对话框单元