procedure tform1.button1click(sender: tobject);
begin
enablewindow(handle,false);//窗口一不可用
form2.show;
end;
procedure tform2.formclose(sender: tobject; var action: tcloseaction);
begin
enablewindow(form1.handle,true);//可用
end;
或者
var
form1: tform1;
windowlist: pointer;
implementation
uses unit2;
{$r *.dfm}
procedure tform1.button1click(sender: tobject);
begin
windowlist:= disabletaskwindows(self.handle);
form2.show;
end;
uses unit1;
{$r *.dfm}
procedure tform2.formclose(sender: tobject; var action: tcloseaction);
begin
enabletaskwindows(unit1.windowlist);
end;
