紧急！怎样给checklistbox加上右键响应消息？

Question

当在CheckListBox上单击鼠标右键时，弹出一个菜单？请问如何做到？
给出代码，谢谢！

Answer 1

知道popupmenu，
我是不知道右键点击checklistbox的事件在哪里？以及怎样判断是右键？
请告诉我吧。

Answer 2

在 mousedown事件里
if ssright in shift then
begin
 // 
end;

Answer 3

Self.ListBox1.PopupMenu := Self.PopupMenu1;再 PopupMenu1 的OnPopup事件里加代码。

Answer 4

procedure TForm1.RichEdit2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    ShowMessage('×ó¼ü');
  if Button = mbRight then
    ShowMessage('ÓÒ¼ü');
end;

Answer 5

var
  mousept:Tpoint;    getCursorPos(mousept);
    popmenu1.Popup(mousept.x,mousept.y);