使用HWND（或類似的）作爲虛擬Stringtree中的節點圖像

Question

是否可以顯示從外部Handle獲取的圖標作爲我的節點在虛擬Stringtree中的圖像？節點的數據包含HWND。

Answer 1

我會用ImageList分配給你的VT的Images屬性和OnGetImageIndex事件。 以下是使用WM_GETICON填寫圖片列表的方法。

procedure TForm1.Button1Click(Sender: TObject); 
var IconHandle: HIcon; 

begin 
    IconHandle := SendMessage(123456, WM_GETICON, ICON_SMALL2, 0); 
    ImageList_AddIcon(ImageList1.Handle, IconHandle); 
end; 

並且例如將0圖像索引傳遞給VirtualTreeView。

procedure TForm10.VirtualStringTree1GetImageIndex(Sender: TBaseVirtualTree; 
    Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; 
    var Ghosted: Boolean; var ImageIndex: Integer); 
begin 
    ImageIndex := 0; 
end;