가상 문자열 트리의 노드 이미지와 같은 HWND (또는 이와 비슷한) 사용

Question

외부 핸들에서 가져온 아이콘을 가상 노드 트리의 가상 노드로 표시 할 수 있습니까? 노드의 데이터에는 HWND가 들어 있습니다.

Answer 1

VT의 Images 속성과 OnGetImageIndex 이벤트에 할당 된 ImageList을 사용합니다. 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;