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]