你可以在程序开始时存储鼠标的状态,然后将它设置成漏斗型,在程序结束时再将它恢复成原来状态,在帮助里可以找到例子.
你还可以在程序开始时运行一个过程,假设你的窗体为form1:
for i:=0 to form1.componentscount-1 do
if form1.components[i].classtype=tbutton then
(form1.components[i] as tbutton).enabled:=false;
在程序结束时在将它反过来运行一下就可以了
你还可以在程序开始时运行一个过程,假设你的窗体为form1:
for i:=0 to form1.componentscount-1 do
if form1.components[i].classtype=tbutton then
(form1.components[i] as tbutton).enabled:=false;
在程序结束时在将它反过来运行一下就可以了
with tbusyform.create(nil) do
begin
showmodal;
update;
allowclose:=false;
// doing sth...
...
allowclose:=true;
hide;
free;
end;
// tbusyform is a form use for notify app busy.
add allowclose to public
add the following to onclosequery event
canclose:=allowclose;