windows - 仮想文字列ツリーのノードイメージとしてHWND（または同様のもの）を使用する

Question

外部ハンドルから取得したアイコンを仮想文字列ツリーのノードの画像として表示することはできますか？ノードのデータには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;