CSDN博客

img yanleigis

代替showmodal其他两种方法

发表于2001/6/3 13:33:00  986人阅读

分类: delphi

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;

 

0 0

相关博文

我的热门文章

img
取 消
img