|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/12/15 9:35:44 |
标题: |
请问:如何用代码动态控制任务栏的显示与隐藏? |
浏览:1530 |
|
加入我的收藏 |
楼主: |
请问:如何用代码动态控制任务栏的显示与隐藏?
----------------------------------------------
*-------------------------------\ | 渴求知识,也渴望您的帮助! \ | 愿结识当今天下爱好DELPHI之朋友!\ |__________________________________\______^_^ |
作者: |
rhot (rbeatles) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/12/15 9:39:53 |
1楼: |
这样可不可以: StatusBar1.Visible:=false; StatusBar1.Visible:=true;
----------------------------------------------
-
|
作者: |
|
2003/12/15 10:43:15 |
2楼: |
哦我也许没说清楚, 我说的是WINDOWS的任务栏.
你那个StatusBar1系统说找不到.
----------------------------------------------
*-------------------------------\ | 渴求知识,也渴望您的帮助! \ | 愿结识当今天下爱好DELPHI之朋友!\ |__________________________________\______^_^
|
作者: |
|
2003/12/15 10:50:30 |
3楼: |
var hShell: THandle;
procedure TForm1.Button1Click(Sender: TObject); begin // 隐藏 hShell := FindWindow('Shell_TrayWnd', nil); if hShell <> 0 then ShowWindow(hShell, SW_HIDE); end;
procedure TForm1.Button2Click(Sender: TObject); begin // 显示 if hShell <> 0 then ShowWindow(hShell, SW_SHOW); end;
----------------------------------------------
---- VCL
|
作者: |
|
2003/12/15 11:25:58 |
4楼: |
楼上的兄弟,你好呀!
你的"隐藏"可以实现 但显示却不行. 我把你的显示代码中的if hShell <> 0 then改为if hShell = 0 then还是不行.
----------------------------------------------
*-------------------------------\ | 渴求知识,也渴望您的帮助! \ | 愿结识当今天下爱好DELPHI之朋友!\ |__________________________________\______^_^
|
作者: |
|
2003/12/15 15:39:25 |
5楼: |
有谁知道?? 请告诉我!!
----------------------------------------------
*-------------------------------\ | 渴求知识,也渴望您的帮助! \ | 愿结识当今天下爱好DELPHI之朋友!\ |__________________________________\______^_^
|
作者: |
|
2003/12/15 16:14:15 |
6楼: |
我晕.你在首页看看.我传了个全api写的代码.上面有关于所以桌面的:系统拖盘,系统时间,任务栏,启动栏....
----------------------------------------------
|
作者: |
|
2003/12/19 17:46:42 |
7楼: |
var hShell: THandle;
这个变量必须声明为全局变量。
我的代码全部测试通过,才放上来的。
----------------------------------------------
---- VCL
|
|