为什么TrackPopUpMenu()无效?(50分)

S

sharkHun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-10

• #1

我的意思是想要在button click 你show出系统菜单，系统菜单能show出，<br>但当我click系统菜单时，比如[关闭]，什么都没有发生，即点击系统<br>菜单项无效，why?<br><br>代码如下:<br><br>var<br>&nbsp; CursorPos : TPoint;<br>&nbsp; HSysMenu : integer;<br>begin<br>&nbsp; &nbsp;GetCursorPos(CursorPos);<br>&nbsp; &nbsp;HSysMenu := GetSystemMenu(Form1.handle,False);<br>&nbsp; &nbsp;TrackPopUpMenu(HSysMenu,TPM_LEFTALIGN,CursorPos.x,CursorPos.y,0,Form1.handle,nil); <br>end;

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-10

• #2

当然无效啦<br>你这样做Form1收不到WM_SYSCOMMAND<br>只能收到WM_COMMAND

 

江

江南草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-11

• #3

sure，应当用hinstance代替你的form1.handle。

 

K

kens

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #4

listen

 

P

pqx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-17

• #5

用hinstance代替form1.handle没用，到底应如何实现呢？

 

S

sharkHun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #6

to Reboot:<br>&nbsp; &nbsp;怎样才能受到WM_SYSCOMMAND消息呢

 

S

sharkHun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #7

为什么没人回答，应该不是太难，why!!!!!!

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #8

呵呵，改写窗口的WM_COMMNAD。<br>procedure MYWMCOMMAND(var msg: TWMCOMMAND); message WM_COMMAND;<br>procedure TForm1.MYWMCOMMAND(var msg: TWMCOMMNAD);<br>begin<br>&nbsp; case msg.ItemId of<br>&nbsp; &nbsp; SC_CLOSE: SendMessage(Handle,WM_SYSCOMMAND,SC_CLOSE,0);<br>&nbsp; &nbsp; SC_RESTORE: SendMessage(Handle,WM_SYSCOMMAND,SC_RESTORE,0);<br>&nbsp; &nbsp; ...<br>&nbsp; &nbsp; else inherited;<br>&nbsp; end;<br>end;

 

S

sharkHun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-16

• #9

to Reboot:<br>&nbsp; &nbsp;能解释一下为什么吗？

 

O

oliver99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #10

To:sharkHun<br>问题解决了吗？具体怎么实现你的主题上说的， 能和我说说吗？ccx.djb@163.com