用滑鼠點按ListBox,想要使其無作用(無法選擇item),要如何作?
偵測WM_MOUSEACTIVATE後 用 WM_KILLFOCUS SendMessage
,但按下滑鼠時Item仍會被選取到

不知道這是不是你要的 <textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin i:=ListBox1.ItemIndex; end; procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.ItemIndex:=i; end; </textarea>

編輯記錄

謝謝你的回覆,我希望的功能是: ListBox item 的選擇僅透過程式來控制,但不希望由滑鼠來點選

我的目的是就算有人按滑鼠也無法去點選,而保持原來程式所選的
這不就是意味著只能用程式去控制,而無法用人工點選?
我是照著你說的話去做的
可能從你問的,而我的想法和你想要的有些出入吧!呵~~
你有去試過我提的那個程式嗎?
===================引 用 ttk 文 章===================
謝謝你的回覆,我希望的功能是: ListBox item 的選擇僅透過程式來控制,但不希望由滑鼠來點選

編輯記錄

1.想太多了～經過程式控制而不由使用者來點選，那麼直接把 enabled 屬性設定成false即可。
2.如果真的不想要有看起來灰色的樣子，小弟查了一下HELP可以用VCL內部使用(internal use)的方法，所謂內部使用可能未來的繼承移植性就不能保證了。
void __fastcall TForm1::ListBox1Enter(TObject *Sender)
{
this->DefocusControl(this->ListBox1,false); //這樣 ListBox 就不能接收滑鼠與鍵盤在其上有焦點。
}
===================引 用 ttk 文 章===================
謝謝你的回覆,我希望的功能是: ListBox item 的選擇僅透過程式來控制,但不希望由滑鼠來點選

編輯記錄

我把指令改成 this->DefocusControl(this->ListBox1,ｔｒｕｅ); 功能就出來了
Thank you very much!

PS:我試過上面另一個方式,其效果不適合我的使用,thank you!

===================引 用 Stallion 文 章===================
1.想太多了～經過程式控制而不由使用者來點選，那麼直接把 enabled 屬性設定成false即可。
2.如果真的不想要有看起來灰色的樣子，小弟查了一下HELP可以用VCL內部使用(internal use)的方法，所謂內部使用可能未來的繼承移植性就不能保證了。
?void __fastcall TForm1::ListBox1Enter(TObject *Sender)
{
?this->DefocusControl(this->ListBox1,false); //這樣 ListBox 就不能接收滑鼠與鍵盤在其上有焦點。
}