新手小弟想請問一下各位，

目前我有一個 ListVew 主要要用於顯示方面，

因此有寫一個 CustomDrawItem 偵測 Select 用來顯示目前在ListView所選取得資料。

但是當滑鼠移動到ListView上面或是滑鼠按下左右鍵，以及鍵盤的UP/Down，會設定為Focus 並重設Select。

是否有辦法將滑鼠及鍵盤的控制鎖定，將左右鍵或是方向鍵設定為控制捲軸，而不會去點選資料內容而改變Select。

編輯記錄

我記得...按了左右鍵，它的捲軸不是已經會自動跟著捲動了嗎??
選擇完後，就把Focus移到別的地方去不就行了??

===================引 用 Gordon0823 文 章===================
新手小弟想請問一下各位，

目前我有一個 ListVew 主要要用於顯示方面，

因此有寫一個 CustomDrawItem 偵測 Select 用來顯示目前在ListView所選取得資料。

但是當滑鼠移動到ListView上面或是滑鼠按下左右鍵，以及鍵盤的UP/Down，會設定為Focus 並重設Select。

是否有辦法將滑鼠及鍵盤的控制鎖定，將左右鍵或是方向鍵設定為控制捲軸，而不會去點選資料內容而改變Select。

老大您好
我主要是想將ListView的滑鼠功能關閉，類似 ListView1->Enabled = false。
但是因為要使用卷軸，所以不能直接將ListView1->Enabled = false。

我參考http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=89114 這篇文章
修改為ListView使用，在這之中滑鼠左右鍵都已經被關閉，但是有一個小問題，
就是滑鼠移過去在資料上方時，滑鼠沒動作但是還是會取得該資料的Focus以及Select
不知道該如何解決。

我將程式上傳，希望能幫我找出問題，感謝各位。


Unit1.h
[code cpp]
private: // User declarations
TWndMethod oldListViewProc; //儲存原訊息函式
void __fastcall ListViewWndProc(Messages::TMessage &Message);//攔截訊息函式
[/code]


Unit2.h
[code cpp]
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
oldListViewProc = ListView1->WindowProc;
ListView1->WindowProc = ListViewWndProc;
}

void __fastcall TForm1::ListViewWndProc(Messages::TMessage &Message)
{
if((Message.Msg == WM_LBUTTONDOWN) || (Message.Msg ==WM_RBUTTONDOWN)||(Message.Msg == WM_MOUSEMOVE))
{
//忽略
}
else
{
oldListViewProc(Message);
}
}
[/code]

我想你可以用ListView->RowSelect = false;
當你攔截到滑鼠訊息時關掉，其他訊息再打開(想想而已沒試過....XD)
===================引 用 Gordon0823 文 章===================
老大您好
我主要是想將ListView的滑鼠功能關閉，類似 ListView1->Enabled = false。
但是因為要使用卷軸，所以不能直接將ListView1->Enabled = false。

我參考http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=89114這篇文章
修改為ListView使用，在這之中滑鼠左右鍵都已經被關閉，但是有一個小問題，
就是滑鼠移過去在資料上方時，滑鼠沒動作但是還是會取得該資料的Focus以及Select
不知道該如何解決。

我將程式上傳，希望能幫我找出問題，感謝各位。


Unit1.h
[code cpp]
private:// User declarations
TWndMethod oldListViewProc; //儲存原訊息函式
void __fastcall ListViewWndProc(Messages::TMessage &Message);//攔截訊息函式
[/code]


Unit2.h
[code cpp]
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
oldListViewProc = ListView1->WindowProc;
ListView1->WindowProc = ListViewWndProc;
}

void __fastcall TForm1::ListViewWndProc(Messages::TMessage &Message)
{
if((Message.Msg == WM_LBUTTONDOWN) || (Message.Msg ==WM_RBUTTONDOWN)||(Message.Msg == WM_MOUSEMOVE))
{
//忽略
}
else
{
oldListViewProc(Message);
}
}
[/code]

我在判斷是加上ListView1->SetFocus();滑鼠滾輪就能使用了，謝謝大家。

至於將ListView false有試過，但是不可行，因為偵測率很快並需要控制捲軸因此放棄用此方法。
[code cpp]
void __fastcall TForm1::ListViewWndProc(Messages::TMessage &Message)
{
if(Message.Msg == NCHITTEST)
{
ListView1->SetFocus();
}
else
{
oldListViewProc(Message);
}
}

[/code]

編輯記錄