窗体的问题 (50分)

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

请教一个问题，当窗体设成无边框，最大化窗体，此时窗体会把桌面下方的开始菜单遮住，
无边框时，怎么设才成在最大化时不遮住开始菜单，就和普通窗体最大化一样。
给分的问题，发了帖就看到啦！呵呵！

 

X

xyl999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

不要最大化，用Aling := alClient;

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

谢谢啦，现在我不能试，晚点我下线后再试，呵呵！！！

 

S

sjronaldo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #4

我也是delphi的初学者啊，HGF，让我们一起努力把

 

D

dhycq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #5

不会的，你是不是把FormStyle设置成fsStayOnTop了？

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #6

什么都没有改，只是把窗体设为无边框，最大化时就会把开始菜单遮住。

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

To xy1999
用Aling := alClient;是可行的，但如果你要缩小窗体时怎么办，我只能强制给窗体的高宽
付值，再让窗体显示到桌面的正中。除了这个办法还有更好的办法与普通窗体最大化，缩小
时完全一样吗。

 

1

1疯狂delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #8

捕捉一下整个屏幕的大小，再把窗体的大小设置为屏幕大小减去任务栏的高度不就可以了。

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #9

>>1疯狂delphi
我试了一会儿，没搞定，怎么做?
>>hgf
如果是主界面，alClient这样的效果不错啊！：）

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #10

To 棍哥：当然啦，如果是主界面是可行的，但就是缩小不太理想，只好强制付值啦。
To xy1999>>如果我在800*600中做的界面，去1024*768中，怎么使界面自动调整。

望高手指点一下！

 

Y

yzy25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #11

用子窗体吧！

 

W

wjh_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #12

Form1.Align:=alclient;
Fform1.BorderStyle:=bsNone;
这样不是可以吗

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #13

谢谢各位

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #14

>>hgf
我也搞定了，不过想知道你是怎么弄的！说说看呢！

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #15

棍哥>>你先说你是怎么弄的。

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #16

>>老甲鱼
你小子骂我,不说了,等你从广西回来,看我怎么收拾你!

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #17

谢谢大家啦！！！

 

H

hgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #18

棍哥>>走着瞧，不会带好东东给你啦！

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #19

var
TmpAppBarDate: TAppBarData;
begin
TmpAppBarDate.cbSize := sizeof(TmpAppBarDate);
if SHAppBarMessage(ABM_GETSTATE, TmpAppBarDate) = 2 then
begin
SHAppBarMessage(ABM_GETTASKBARPOS, TmpAppBarDate);
if (Form1.Height + Form1.Top) > (Screen.Height - (TmpAppBarDate.rc.Bottom - TmpAppBarDate.rc.Top)) then
Form1.Height := (Screen.Height - (TmpAppBarDate.rc.Bottom - TmpAppBarDate.rc.Top)) - Form1.Top;
end;
end;
hgf用的是窗体设成无边框，这样最大化，最小化应该是另外的按钮做的，如果是这样，其实
不要像上面这么费，只要记下原始的值，再赋回去应该就可以了！

 

S

sjronaldo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #20

sandao，甲鱼那小子不得了啊，哈哈！！