Fare tekerleği yanlış kontrole mesaj gönderiliyor

Question

Windows XE2, TVirtualStringTree ve bir TComboBox yerinde bir editör olarak kullanıyorum.

TComboBox'u doğrudan forma yerleştirdiğimde, çalışma zamanında listeyi açabilirim ve fare tekerleği listedeki öğeleri yukarı ve aşağı kaydırır (istendiği gibi). Bununla birlikte,, çalışma yerinde düzenleyici olarak TVirtualStringTree tarafından çalışma zamanında oluşturulduğunda, yeni oluşturulan birleşik giriş kutusunun odaklanmasına rağmen, fare tekerleğinin WM_MOUSEWHEEL iletisi, birleşik kutuya değil, ağaç denetimine gönderilir.

Bu, açılan kutudaki öğeler kaydırma yapmıyor olduğundan aşikar. Bunun yerine, açılan kutunun arkasındaki ağaç denetimi kaydırır. Birleşik kutunun sabit kısmı ağaçla birlikte hareket eder, ancak açılan liste açılan kutunun sabit kısmından ayrılır ve hareket etmiyor (tasvir edildiği gibi).

Her iki durumda da TComboBox.StylecsDropDownList ayarlanır. Fare gezinip nerede

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

farketmez: açılan kutu ağacın yerinde editör olarak oluşturulduğunda, bu şekilde yapılır. Açılan kutu açılır listesindeki öğelerin doğrudan üzerinde olabilir ve arka planda ağaç denetimi hala kaydırma yapan bir tanesidir. Birleşik kutudaki öğeleri kaydırmanın tek yolu kaydırma çubuğunu kullanmaktır.

Odaklanmış denetimin üst tarafının, denetimin kendisi yerine fare tekerleği iletilerini almasına neden olan şey (bu durumda, TComboBox)?

Answer 1

VirtualTrees.pasTBaseVirtualTree sınıfında aşağıdaki bildiriyi içerir: o ilk dikey ve sonra yatay kaydırma böylece

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

bileşeni yazar fare tekerleği mesajlar yakalanan. Özel kod, fare tekerleği iletilerinin, TComboBox yerine TVirtualStringTree'a gönderilmesinin nedeni. Onun kodunu ve beklendiği gibi TComboBox açılan listeyi yorumladı.

TBaseVirtualTree kodunu gerçekten kaldırmak istemediğimden, kendi yerinde TMyComboBox kodunu, yerinde düzenleyici olarak kullanmak için aşağıdaki kodla oluşturdum. Şimdi kaydırma, hem aşağı açılan listede hem de ağaç kontrolünde doğru şekilde çalışıyor. işlemek için TControl.DoMouseWheel() yönteme ağaç kontrolü ve eller o geçmeden önce

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; 

Bu CM_MOUSEWHEEL mesajı yakalar.