如何關閉Delphi ListView上的hottracking？

Question

我在窗體上有一個簡單的ListView，我想完全關閉hottracking。 HotTracking屬性設置爲false，但仍有繪製在鼠標光標下的項藍色十歲上下的矩形...

德爾福XE3，Windows 7的

Answer 1

這個矩形是探險主題的一部分。資源管理器主題是可選的，列表視圖類選擇使用它並通過調用SetWindowTheme將其強加於其CreateWnd中。您可以通過調用SetWindowTheme撤銷更改來覆蓋該行爲。

使用中介類的一個例子：

uses 
    Vcl.ComCtrls, Winapi.UxTheme; 

type 
    TListView = class(Vcl.ComCtrls.TListView) 
    protected 
    procedure CreateWnd; override; 
    end; 

procedure TListView.CreateWnd; 
begin 
    inherited; 
    SetWindowTheme(WindowHandle, nil, nil); 
end;