ITPub博客

首页 > IT职业 > IT生活 > 代替showmodal其他两种方法 (转)

代替showmodal其他两种方法 (转)

原创 IT生活 作者:worldblog 时间:2007-12-09 08:44:11 0 删除 编辑
代替showmodal其他两种方法 (转)[@more@]

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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2448153