如何控制任务条。(100分)

wxb761014 · 2000-09-29

我想做一个类似WINDOWS自带的画图程序中的 全图预览似的功能。   这就必须隐藏任务条，我用的是以下方法： procedure hideTaskbar; //隐藏 var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); End; 这段程序能隐藏任务条，但预览窗体最大化后仍不能充满整个桌面。 显然，被隐藏的任务条部分阻挡了的窗体的最大化。 请问：如何使最大化窗体充满整个桌面，不受任务条的限制。

hhzh426 · 2000-09-29

form.left:=0; form.top:=0 form.width:=screen.width; form.height:=screen.height;

wxb761014 · 2000-09-29

没人理我，呜呜！！！ 我急得都想跳楼了，大家帮帮忙吧。   坛主也不出手吗？？？

CJ · 2000-09-29

hhzh426不是理你了？

wxb761014 · 2000-09-29

hhzh426的办法我已经试过了，不行。

zwhc · 2000-09-29

hhzh426 的在我这可以

loopy · 2000-09-29

应该是行的，，没道理呀！

wxb761014 · 2000-09-30

为什么各位大富翁越来越不热情了。 失望！！！！！！！！！！！！！！！！ 只好去其他地方求助了！！！！！ 别了，大富翁！！！！！！！

wheel · 2000-09-30

TMD,明明是可以。还说这种混帐话！！ 你不行的话把代码全贴出来看看。

wheel · 2000-09-30

你上说按最大化按钮不行是吧？现写的： procedure changewindow(var msg:TMessage);message WM_SYSCOMMAND; implementation procedure Form1.changewindow(var msg:TMessage); var   wndHandle : THandle;   wndClass : array[0..50] of Char; begin   if msg.WParam=SC_MAXIMIZE then   begin   StrPCopy(@wndClass[0], 'Shell_TrayWnd');   wndHandle := FindWindow(@wndClass[0], nil);   ShowWindow(wndHandle, SW_HIDE);   form.left:=0;   form.top:=0;   form.width:=screen.width;   form.height:=screen.height;   end; End; //且当抛砖引玉，自己再加其他处理。

wxb761014 · 2000-09-30

对不起，刚才我又试了一下。可以了！！！！  以前不行是因为我将form的align属性设置成了alclient，改成    alnone就行了。 再次感谢hhzh426与wheel。

如何控制任务条。(100分)

wxb761014

Unregistered / Unconfirmed

hhzh426

Unregistered / Unconfirmed

wxb761014

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

wxb761014

Unregistered / Unconfirmed

zwhc

Unregistered / Unconfirmed

loopy

Unregistered / Unconfirmed

wxb761014

Unregistered / Unconfirmed

wheel

Unregistered / Unconfirmed

wheel

Unregistered / Unconfirmed

wxb761014

Unregistered / Unconfirmed

Similar threads