TListView滾動事件

Question

TListView控件是否有一個事件在控件滾動時觸發？

我不希望子類TListView控件。

Answer 1

這很好，但可能會違反你的問題的限制。

在該單元的interface部分含有該TListView（現有的TForm聲明）使用的形式，添加

type 
    TListView = class(ComCtrls.TListView) 
    protected 
    procedure WndProc(var Message: TMessage); override; 
    end; 

然後，在同一單元中的implementation部分中，定義

procedure TListView.WndProc(var Message: TMessage); 
begin 
    inherited; 
    case Message.Msg of 
    WM_HSCROLL, WM_VSCROLL: beep; 
    end; 
end; 

Answer 2

或者，如果你想陷入垂直滾動事件，你可以使用它。代碼幾乎與安德烈亞斯發佈的相同...

type 
    TListView = class(ComCtrls.TListView) 
    protected 
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL; 
    end; 

procedure TListView.WMVScroll(var Message: TWMVScroll); 
begin 
    inherited; 
    Beep; 
end; 

Answer 3

所有的答案都很好:-)，但我不會創建新的孩子的類。 感謝大家的幫助:-)！

---

我的決心：我使用的組件（在Delphi 7）ApplicationEvents我檢查滾動條位置（GetScrollPos（ListView.Handle，SB_VERT））的變化。

Answer 4

您可以在不編寫後代類的情況下創建窗口的子類，當您希望更改後的行爲成爲一次性需求時，這很有用。編寫一個TWndMethod函數，如Andreas's answer，但是將其寫入任何你想要的類，比如擁有列表視圖的表單。將其分配給列表視圖控件的WindowProc屬性。在此之前，請存儲該屬性的先前值，以便將所有其他消息推遲到該值。

type 
    TNanikForm = class(TForm) 
    ListView: TListView; 
    private 
    FPrevListViewProc: TWndMethod; 
    procedure ListViewWndProc(var Msg: TMessage); 
    public 
    procedure Loaded; override; 
    end; 

procedure TNanikForm.ListViewWndProc(var Msg: TMessage); 
begin 
    case Msg.Message of 
    wm_VScroll: ; 
    else FPrevListViewProc(Msg); 
    end; 
end; 

procedure TNanikForm.Loaded; 
begin 
    inherited; 
    FPrevListViewProc := ListView.WindowProc; 
    ListView.WindowProc := ListViewWndProc; 
end;