兄弟们 在下想做个悬浮窗 目前已经实现了悬浮窗 但是不清楚如何在悬浮窗上可以用鼠标右击弹出菜单 ( 积分: 100 )

已经用现成的代码实现了悬浮窗 但是看了好多资料 没有找到如何加个弹出菜单 特来跟兄弟们请教！

关键就是这句 把所有的鼠标消息都给屏蔽了
if Msg.Result = HTCLIENT then
Msg.Result:= HTCAPTION;

if (Msg.Result = HTCLIENT) and (Msg.Hand=self.handle) then
Msg.Result:= HTCAPTION;

风兄
编译不得通过 ，Undeclared identifier: 'Hand'

??

procedure TMainForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.hwnd = Handle) and (Msg.message=WM_LButtonDown) and (DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient) then //判断是否按下左键及是否在位置在客户区
begin
SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos); //发送鼠标在标题栏内按下的消息
Handled:=true;
end;
end;