請問各位大大DBLookupListBox的藍色橫條一定只能按右鍵橫條才會跟著動嗎，或
是按鍵盤的上下方向鍵才能動嗎？
請問要怎麼做才能使橫條可以隨滑鼠的移動而橫條也跟著移動但要在DBLookupListBox區域內才行，
例如：Delphi K.Top討論區的發表新文章的語言/平台的拉條一樣會隨著滑鼠的移動而動。
請問要如何寫呢？

謝謝!謝謝!

------
－謝謝大大熱心的回覆!謝謝!

編輯記錄

這是我測試完成的程式碼，
但是卻沒有辦法用在DBLookupListBox上面請問有什麼方法能解決嗎
ListBox1->ItemIndex
ListBox1->ItemAtPos
這兩個程式碼要怎麼對應在DBLookupListBox上面呢
能否請大大幫幫忙呢?
然到只能利用ListBox和DBComboBox的方式嗎?
謝謝!謝謝!
[code cpp]
void __fastcall TForm1::ListBox1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
TPoint pt;
pt.x = X;
pt.y = Y;
ListBox1->ItemIndex = ListBox1->ItemAtPos(Point(X,Y), true);
}
[/code]

------
－謝謝大大熱心的回覆!謝謝!

編輯記錄

HI, 你可以在 DBLookupListBox 中的 On MouseMove 的事件裡 對自己送 Message

PostMessage(DBLookupListBox1->Handle, WM_LBUTTONDOWN, 0, MakeLparam(X, Y));

這樣就可以滑來滑去了..............


不過，建議你在 OnMouseUp的地方加個變數控制是否繼續滑動~~~ 不然選到了目標
滑鼠要滑開時，反而又誤選到了其他的選項~~!

例：
On MouseEnter 加上
bAutoSelected = true;


on MouseMove 加上
if bAutoSelected
PostMessage(.....


on MouseUp 加上
bAutoSelected = false;


個人碎碎念.....
On MouseMove ==> On 和 MouseMove 放在一起變成 OnMouseMove ????? 真奇怪

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄

沒有想到還能這樣寫，
實在太謝謝大大幫忙我解決一個大難題呀，
想了久，卻沒想到大大一語卻幫我了一個大忙。
謝謝!謝謝!

------
－謝謝大大熱心的回覆!謝謝!

編輯記錄