msgbox_returntest.script

来自「pas脚本编译,编译写好的脚本,运用了fastscript控件」· SCRIPT 代码 · 共 13 行

var
t:ttest;
i:integer;
begin
t:=ttest.create;
t.age:=1;
t.nm:='a';
i:=msgbox(t.nm,MB_YESNO+MB_ICONQUESTION);
//if i=mbok then
showmessage(inttostr(i));
showmessage(inttostr(mbok));
end.