如何做到全屏显示时隐藏菜单,鼠标移动上去才显示菜单?(200)

  • 主题发起人 主题发起人 dali2000
  • 开始时间 开始时间
D

dali2000

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

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部