o*o 请进, 您能否把替换开始菜单的源代码发给我?我很急的。(300分)

  • 主题发起人 主题发起人 yqkx2000
  • 开始时间 开始时间
Y

yqkx2000

Unregistered / Unconfirmed
GUEST, unregistred user!
o*o 请进, 您能否把替换开始菜单的源代码发给我?我很急的。
 
自己写一个应该也不难的<br>用HOOK, 可以看一下深度历险那本书关于HOOK部份,我想看完你就能写了。 [:)]
 
这本书没有卖的呀,我找了好久也没有找到。
 
自己做一个吧,搜索一下appbar看适不适合你?
 
<br>1.在论坛中搜索得到“开始”按钮的Handle,例如StartHandle<br><br>2.建立一个Form1,加上一个Button1,OnCreate事件把它的Form1窗口大小和Button1的大小<br>&nbsp; 设置为和“开始”按钮差不多。<br><br>3.在你的Form里面建立一个PopupMenu,例如MyPop。<br><br>4.在OnFormShow加上下面的代码:<br>&nbsp; SetParent(Form1.Handle,StartHandle);<br><br>5.OnButton1Click事件:<br>&nbsp;Mypop.Popup(0,Screen.Height-1)即可。<br><br>我就是这样做的,可惜项目结束后源代码丢了,不然给你也无所谓!<br>
 

Similar threads

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