关于"系统菜单"!!!!!!!!! (50分)

G

gmllike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #1

当鼠标点击窗体左上角时，会弹出系统菜单，我想如果我在窗体客户区放一个Timage当点击
image时能否出系统菜单,另外我还想知道wm_nchittest,wm_syscommand,wm_nclbuttondown
这几个消息产生的顺序，还有如果弹出系统菜单后，然后再双击还要关闭窗体
小弟分少，只能少给一些，出50分好了

 

G

gmllike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #2

Procedure Tform1.image1click(Sender : TObject);
var
CursorPos : TPoint;
HSysMenu : integer;
begin
GetCursorPos(CursorPos);
HSysMenu := GetSystemMenu(Form1.handle,False);
TrackPopUpMenu(HSysMenu,TPM_LEFTALIGN,CursorPos.x,CursorPos.y,0,Form1.handle,nil);
//但要响应菜单命令需处理wm_command消息
end;

 

G

gmllike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #3

但如何能够在弹出系统菜单后，双击IMAGE能关闭窗口呢

 

星

星语心愿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #4

双击的时候发送消息：Perform(WM_CLOSE, 0, 0);

 

G

gmllike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-03

• #5

接受答案了.