窗口如何全屏显示(10分)

K

ktsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #1

请问如何使窗口全屏显示(包括任务栏部份），一直显示在最顶端。并不能关闭就像全屏看电影一样。

哪位高手能帮小弟这个忙。

 

Z

zylsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #2

Form1.width := Screen.width;
Form1.Height := Screen.Height;

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #3

with Form do
begin
Align := alClient
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
end;

 

T

tianlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #4

学习中

 

S

songrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #5

同意Johnny_du,

 

K

ktsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #6

那样我试过了。任务栏还不能显示

 

L

liuying1129

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #7

with Form do
begin
WindowState := wsMaximized;
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
end;

 

一

一份子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #8

最大化程序的时候,先,再最在化程序,,在程序最小化或正常的时候,再还原任务栏,
隐藏任务栏有一个函数,你可以去试一下,我现在也忘了,
然后再加上他们刚才说的,
with Form do
begin
WindowState := wsMaximized;
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
end;

 

在

在世寻欢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #9

隐藏任务栏:
procedure HideTaskBar(bFlag:Boolean);
var
hTaskWnd:HWND;
begin
hTaskWnd:=FindWindow('Shell_TrayWnd',nil);
if bFlag then
ShowWindow(hTaskWnd,SW_NORMAL)
else
ShowWindow(hTaskWnd,SW_HIDE);
end;