procedure TForm1.Button1Click(Sender: TObject);beginenablewindow(handle,false);//窗口一不可用form2.show;
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);beginenablewindow(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;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);begin EnableTaskWindows(unit1.WindowList);end;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18