小弟我的目的是"要像檔案總管一樣,按滑鼠右鍵除了PopupMenu之外,此Item也被選取"
按右鍵PopupMenu是沒問題,但是滑鼠指到的Item,沒辦法選取
目前CheckListBox 原件內定可以使用滑鼠左鍵去改變Select的Item
所以我在 CheckListBox 的Even中的OnContextPopup ,寫下以下程式


[code cpp]
void __fastcall TMainForm::CheckListBox1ContextPopup(TObject *Sender,TPoint &MousePos, bool &Handled)
{
BOOL bStatus;
int MousePosItemIndex;

//先取得滑鼠指到Item的Index
MousePosItemIndex= CheckListBox1->ItemAtPos(MousePos,true);
//判斷大於0,才動作
if ( MousePosItemIndex>=0 )
{
//Selected[index] 只能判斷此項 是否被選取
bStatus=CheckListBox1->Selected[MousePosItemIndex];

//To Do Change Select Item....
//接下來就不知該如何做了??
}
}[/code]

請問有以寫程式的方法去改變選取的Item嗎???

如果是想用右鍵選取item的話，
這樣應該就可以了吧！

[code cpp]
void __fastcall TForm1::CheckListBox1ContextPopup(TObject *Sender,
TPoint &MousePos, bool &Handled)
{
CheckListBox1->ItemIndex = CheckListBox1->ItemAtPos(MousePos,true);
}
[/code]
參考文章：http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=67962

-----------------------------------------------
我爬爬爬.......................

感謝指導!!
我一直在Selected中打轉....
居然沒找到 ItemIndex....(阿勒~~)
之前有類似的,看來我搜尋文章的方式還要加強!!(一直搜尋"右鍵" "Select")