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;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990085/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10752043/viewspace-990085/