动态创建一个Form,然后在过程后面加上加上FormXXX.close这样会好一点,例如给操作员增加权限的例子: for I=1 to 50 do begin adoquery1.sql.text:='insert into access(a1,a2....) values(变量...)' adoquery..... FormXXX.label1.caption:='正在创建XXX功能......'+'变量'+....); adoquery1.next; end; FormXXX.close;///创建完所有权限之后关闭提示窗体 第次都要创建Form它用完之后释放
perform(handle,wm_close ,0,0)
for I=1 to 50 do
begin
adoquery1.sql.text:='insert into access(a1,a2....) values(变量...)'
adoquery.....
FormXXX.label1.caption:='正在创建XXX功能......'+'变量'+....);
adoquery1.next;
end;
FormXXX.close;///创建完所有权限之后关闭提示窗体
第次都要创建Form它用完之后释放