Delphi/Win32のコンボボックス（右端）に画像を配置する

Question

Delphi/Win32のコンボボックス（右端）に画像を描画します。

コンボボックスのスタイルはcsDropDownです。 csOwnerDrawFixedまたはcsOwnerDrawVariableでは機能しません。

コンボボックスは、ブラウザのアドレスバーと同様に編集可能である必要があります。

追加のDelphiコンポーネントを作成せずにWin32ソリューションがありますか？

私は以下のことを試しましたが、うまくいきません。 Delphi 7でこれを行うことはできますか？

TForm1 = class(TForm) 
    ... 
private 
    FChDirComboWndProc: TWndMethod; 
    procedure ChDirComboWndProc(var Message: TMessage); 
    ... 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FChDirComboWndProc := ChDirComboBox.WindowProc; // save old window proc 
    ChDirComboBox.WindowProc := ChDirComboWndProc; // subclass 
end; 

procedure TForm1.ChDirComboWndProc(var Message: TMessage); 
begin 
    WM_ERASEBKGND: begin // WM_PAINT ? 
     SetBkMode(Message.WParam, TRANSPARENT); 
     SetTextColor(Message.wParam, GetSysColor(COLOR_GRAYTEXT)); 
     FillRect(Message.wParam, Rect(3,3,300,30), GetStockObject(BLACK_BRUSH)); 
     Rectangle(Message.wParam, 15,15, 100, 100); //Test 
     OutputDebugString(PCHar(Format('aa %d %d %d',[Message.WParam, Message.LParam, ChDirComboBox.Handle]))); 
     end; 
    end; 
    FChDirComboWndProc(Message); // process message 
end; 

Answer 1

Owner-Drawn Combo Boxesを実装する方法です。 MSDNのOwner-Drawn Combo Boxesを参照するか、Delphiのサンプルを探します。 Owner Draw - ComboBox。