各位前輩： 如何使TwwDBLookupCombo可用滑鼠滾輪選擇下拉的資料?敬請指教，感激不盡…

------
~小弟淺見，參考看看~

由於在 dropdown 時, 無法取得 MouseDown 或 MouseUp 的 message, 因此只好自力救濟使用 SetCapture 來進行取得 mouse 訊息的方式, 另外得利用一個全域變數來取得目前是否是 DropDown 的狀態, 以利進行 CloseUp 及 ReleaseCapture. 目前發現的缺點就是該 combo 會有右邊的三角形按下去浮不起來的狀況, 得再想辦法解決.    

var 
  bDropDown: Boolean;
...
procedure TForm1.wwDBLookupCombo1BeforeDropDown(Sender: TObject);
begin
  SetCapture(wwDBLookupCombo1.Handle);
  bDropDown := true;
end;    procedure TForm1.wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  ReleaseCapture;
  bDropDown := false;
end;    procedure TForm1.wwDBLookupCombo1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if bDropDown and (Button = mbMiddle) then
    wwDBLookupCombo1.CloseUp(true);
end;

引言: 由於在 dropdown 時, 無法取得 MouseDown 或 MouseUp 的 message, 因此只好自力救濟使用 SetCapture 來進行取得 mouse 訊息的方式, 另外得利用一個全域變數來取得目前是否是 DropDown 的狀態, 以利進行 CloseUp 及 ReleaseCapture. 目前發現的缺點就是該 combo 會有右邊的三角形按下去浮不起來的狀況, 得再想辦法解決.

var 
  bDropDown: Boolean;
...
procedure TForm1.wwDBLookupCombo1BeforeDropDown(Sender: TObject);
begin
  SetCapture(wwDBLookupCombo1.Handle);
  bDropDown := true;
end;    procedure TForm1.wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  ReleaseCapture;
  bDropDown := false;
end;    procedure TForm1.wwDBLookupCombo1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if bDropDown and (Button = mbMiddle) then
    wwDBLookupCombo1.CloseUp(true);
end;

感謝timhuang兄的回應…讓小弟多學了幾招…謝謝囉… 經小弟試的結果好像不行耶… 小弟有找到相關的文章：http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18658目前正在研究中…