有時，我們要在ListBox的彈出式菜單中通過ItemIndex顯示項目的有關信息。但是，在項目上右擊鼠標時，ItemIndex不會象左擊那樣被改變。這篇文章將通過例子來告訴你如何實現(xiàn)此功能。
假設你有一個ListBox，填充有稱作Widgets的類：

type TWidget = class(Tobject)
WidgetName : string;
WidgetStatus : boolean;
End;

Widgets : array [0..10] of TWidget

每一項WidgetName在ListBox中顯示出來。

你想要通過一個彈出式菜單來改變每一個Widget的狀態(tài)，其中彈出式菜單與ListBox的OnPopUp事件關聯(lián)。如果狀態(tài)是活動的，設置“Active”；如果不是活動的，不設置“Active”。單擊“Active”來改變狀態(tài)。

問題是：鼠標左鍵單擊ListBox會選擇一Widget，但用右鍵單擊（并顯示彈出菜單）時不會選擇。如果鼠標不在已選項上，彈出菜單顯示的將不是鼠標所在Widget的狀態(tài)，而是已選Widget的狀態(tài)。

幸運的是，ListBox的OnMouseDown比彈出式菜單的OnPopUp先被觸發(fā)。這樣，我們就能在彈出式菜單顯示之前用OnMouseDown事件設置ItemIndex。

TlistBox有一個方法：ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
如果能在Pos座標處找到ListBox的一項，這一方法將返回這一項的Index。如果沒有找到任何項，且Existing值設為True，ItemAtPos將返回值-1，如果Existing值設為False，ItemAtPos將返回ListBox最后一項的Index值加1。

用這個方法結合OnMouseDown事件就解決了我們的問題：

OnMouseDown代碼:

procedure TForm1.WidgetListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
MousePos : TPoint;
OverItemIndex : integer;

begin
MousePos.x := X;
MousePos.y := Y;

if Button = mbRight then
begin
OverItemIndex := WidgetList.ItemAtPos(MousePos,False);
WidgetList.ItemIndex:=OverItemIndex;
end;
end;


OnPopUp代碼:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
Index : integer;
begin
Index := WidgetList.ItemIndex;
PopUpMenuItemActive.Checked := Widgets[Index].WidgetStatus;
end;


彈出式菜單項"Active"的OnClick代碼：
procedure TForm1.PopUpMenuItemActiveClick(Sender: TObject);
var
Index : integer;
begin
Index := WidgetList.ItemIndex;
Widgets[Index].WidgetStatus := not Widgets[Index].WidgetStatus;
PopUpMenuItemActive.Checked:=not PopUpMenuItemActive.Checked;
end;