else
case TCheckBox(Sender). Tag of
0: EnableWindow(Wnd［0］, True);
1: EnableWindow(Wnd［1］, True);
2: EnableWindow(Wnd［2］, True);
3: EnableWindow(Wnd［3］, True);
4: EnableWindow(Wnd［4］, True);
end;
end;
(5)HideOrShow过程代码如下：
procedure TForm1.HideOrShow(Sender:TObject);
begin
GetHandles;
if TCheckBox(Sender). Checked then
case TCheckBox(Sender). Tag of
0: ShowWindow(Wnd［0］,SWHIDE);
1: ShowWindow(Wnd［1］,SWHIDE);
2: ShowWindow(Wnd［2］,SWHIDE);
3: ShowWindow(Wnd［3］,SWHIDE);
4: ShowWindow(Wnd［4］,SWHIDE);
end
else
case TCheckBox(Sender). Tag of
0: ShowWindow(Wnd［0］,SWShow);
1: ShowWindow(Wnd［1］,SWShow);
2: ShowWindow(Wnd［2］,SWShow);
3: ShowWindow(Wnd［3］,SWShow);
4: ShowWindow(Wnd［4］,SWShow);
end;
end;
(6)FormClose事件代码如下：//将Windows任务栏恢复到正常状态；
procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);
var i:Integer;
begin
for i:=0 to 4 do
begin
EnableWindow(Wnd［i］,True);
ShowWindow(Wnd［i］,SWShow);
end;
end;
(7)按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98简体中文版环境下调试通过。
(8)说明：本文所述方法同样适用于VB、VC、BC、C++Builder等编程工具，但应注意语法、 变量类型等不同要求。 上一页 [1] [2] |