Koło myszy wysyła wiadomość do niewłaściwej kontrolki

Question

Używam Windows XE2, TVirtualStringTree i TComboBox jako edytora umieszczonego w folderze.

Po umieszczeniu bezpośrednio na formularzu, w czasie wykonywania mogę upuścić listę, a kółko myszy przewija pozycje na liście w górę iw dół (zgodnie z życzeniem). Jednak, gdy TComboBox jest tworzony w czasie wykonywania przez TVirtualStringTree jako edytor lokalny, nawet jeśli nowo utworzone pole kombi ma fokus, wiadomość kółka myszy jest wysyłana do kontrolki drzewa, a nie do pola kombi.

Jest to oczywiste, ponieważ pozycje na rozwijanej liście rozwijanej listy rozwijanej nie są przewijane. Zamiast tego kontrolka drzewa znajdująca się za polem kombi przewija. Stała część pola kombi porusza się wraz z drzewem, ale lista rozwijana zostaje odłączona od stałej części pola kombi i nie porusza się (jak pokazano).

W obu przypadkach TComboBox.Style jest ustawiony na csDropDownList. Gdy pole kombi jest tworzony jako redaktora drzewa w miejscu, że odbywa się to w ten sposób:

FCBox := TComboBox.Create(TreeControl); 
FCBox.Visible := False; 
FCBox.Parent := TreeControl; 
// ... add items to combo box ... 
FCBox.Visible := True; 
FCBox.SetFocus; 
FCBox.DroppedDown := True; 

To nie ma znaczenia, gdzie mysz jest uciążliwy. Może znajdować się bezpośrednio nad pozycjami na rozwijanej liście rozwijanej listy rozwijanej, a kontrolka drzewa w tle jest wciąż tą, która się przewija. Jedynym sposobem przewijania elementów w polu kombi jest użycie paska przewijania.

Co spowodowałoby, że rodzic aktywnej kontroli odebrałby komunikaty kółka myszy zamiast samej kontrolki (w tym przypadku TComboBox)?

Answer 1

VirtualTrees.pas zawiera następujące oświadczenie w klasie TBaseVirtualTree:

private 
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL; 

Autor komponent przechwycone wiadomości kółka myszy, aby mógł najpierw przewijać w pionie, a następnie poziomo. Kod niestandardowy jest powodem, że komunikaty kółka myszy są wysyłane do TVirtualStringTree zamiast do TComboBox. Skomentowałem jego kod i lista rozwijana TComboBox przewinęła się zgodnie z oczekiwaniami.

Ponieważ naprawdę nie chcę usunąć kodu TBaseVirtualTree, utworzyłem własny TMyComboBox z następującym kodem do użycia jako lokalny edytor. Teraz przewijanie działa poprawnie zarówno na liście rozwijanej, jak i na drzewie.

interface 

type 
    TMyCombBox = class(TComboBox) 
    private 
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL; 
    end; 

implementation 

procedure TMyComboBox.CMMouseWheel(var Message: TCMMouseWheel); 
begin 
    if DoMouseWheel([], Message.WheelDelta, SmallPointToPoint(Message.Pos)) then 
    Message.Result := 1; 
end; 

ten przechwytuje wiadomość CM_MOUSEWHEEL zanim zostanie przekazany do kontroli drzew i ręce go do metody TControl.DoMouseWheel() do procesu.