D dali2000 Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-08 #1 如何做到全屏显示时隐藏菜单,鼠标移动上去才显示菜单?像word2000里那样
Z zbdzjx Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-08 #2 加一个新的form,默认时,高度只有几个象素高,当鼠标移上去时,高度改成几十个象素高,如果离开了,再改成几个象素高。
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-10 #3 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if y<5 then self.Menu:=MainMenu1 else self.Menu:=nil;end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if y<5 then self.Menu:=MainMenu1 else self.Menu:=nil;end;
D dali2000 Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-11 #4 我现在是已经在全屏显示状态下了,菜单已经消失了,现在的问题就是要显示它,但并不是回到正常显示模式,状态还是在全屏显示状态下,只是鼠标移动到屏幕最上面的一部分区域时,那个主框架的菜单就会出现在最上面 其实我的要求就是跟word全屏显示是一样的,鼠标移动到全屏显示界面最上方时候,菜单就出现,移下来,菜单就消失了
我现在是已经在全屏显示状态下了,菜单已经消失了,现在的问题就是要显示它,但并不是回到正常显示模式,状态还是在全屏显示状态下,只是鼠标移动到屏幕最上面的一部分区域时,那个主框架的菜单就会出现在最上面 其实我的要求就是跟word全屏显示是一样的,鼠标移动到全屏显示界面最上方时候,菜单就出现,移下来,菜单就消失了
Z zbdzjx Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-11 #5 按我的說法,放一個form,設成置頂,然後變高度來實現。
D dali2000 Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-11 #6 to zbdzjx: 你的方法可以实现,但菜单已属于另一个form而不是主窗口,菜单的功能代码书写很不方便
S stlont Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-12 #8 if mouse Y=0 then showmenu
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2010-12-13 #9 我写的可以啊 你是怎么全屏的 只要是WIN窗口 我那个就可以用啊