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

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

Widgets : array [0..10] of TWidget

每一項(xiàng)WidgetName在ListBox中顯示出來。

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

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

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

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

用這個(gè)方法結(jié)合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;


彈出式菜單項(xiàng)"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;