Delphi窗体全屏（去掉任务栏）(50分)

formiss · 2008-10-22

Left := 0;   Top := 0;   Width := Screen.Width;   Height := Screen.Height; self.BorderStyle := bsNone; self.WindowState := wsMaximized;  可是这样的结果是：任务栏依旧显示。

wql · 2008-10-22

任务蓝是Windows的,必须隐蚕才行! wnd1:=findwindow(nil,'programman'); // 类是 wnd1:=findwindowex(wnd1,0,nil,'shell'); // 类是 showwindow(wnd1,sw_hide);

e- · 2008-10-22

{Left := 0;   Top := 0;   Width := Screen.Width;   Height := Screen.Height;} self.BorderStyle := bsNone; self.WindowState := wsMaximized;

wulingbo2005 · 2008-10-22

Form1.Position:=poDesktopCenter;   Form1.WindowState:=wsMaximized;   Form1.Width:=screen.Width;   Form1.Height:=screen.Height;   Form1.BorderStyle := bsNone

iamy · 2008-10-22

去掉干啥？ 挡在后面不就行了吗？ Self.FormStyle := fsStayontop;

hs-kill · 2008-10-22

普通的用FormStyle := fsStayontop;就OK了 嘿嘿....我再提供个方法....比较变态的全屏....自己再创建个桌面，把程序扔那个桌面上去运行，这样肯定不会出现任务栏或者其他乱七八糟的东西了 不过坏处是没办法切换到别的程序.....

sedwen · 2008-10-23

试试这样: Windows.SetBounds(0,0,Screen.Width,Screen.Height);//也可以按你自己的设置窗体大小 SetWindowPos(Self.Handle,HWND_TOPMOST,0,0,Screen.Width,Screen.Height,SWP_SHOWWINDOW);窗体置前

德尔福_qwz · 2008-10-23

在FormCreate事件中写如下语句就可以了        ShowWindow(   Application.Handle,   SW_HIDE   );     SetWindowLong(   Application.Handle,   GWL_EXSTYLE,   GetWindowLong(Application.Handle,     GWL_EXSTYLE)   or    WS_EX_TOOLWINDOW   and   not   WS_EX_APPWINDOW);     ShowWindow(   Application.Handle,   SW_SHOW   );

hs-kill · 2008-10-23

呃.....还有补充下，delphi里设置BorderStyle := bsNone好像有点问题，似乎会重新创建窗口handle 普通的应用没什么问题，如果遇到一些特殊对象....比如从DLL里引出的OPENGL对象...就会出问题了，我就刚刚遇到这事....麻烦..最后还是用SetWindowLong解决的全屏

formiss · 2008-11-25

多人接受答案了。

Delphi窗体全屏（去掉任务栏）(50分)

formiss

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

e-

Unregistered / Unconfirmed

wulingbo2005

Unregistered / Unconfirmed

iamy

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

sedwen

Unregistered / Unconfirmed

德尔福_qwz

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

formiss

Unregistered / Unconfirmed

Similar threads