Poner una imagen dentro de un combobox (borde derecho) en Delphi/Win32

Question

Quiero dibujar una imagen dentro de un combobox (borde derecho) en Delphi/Win32.

El combobox tiene el estilo csDropDown. Esto no funciona con csOwnerDrawFixed o csOwnerDrawVariable.

El cuadro combinado debe ser editable de forma similar a la barra de direcciones del navegador.

¿Hay una solución Win32 sin crear un componente adicional de Delphi?

Intenté lo siguiente, pero no funciona. ¿Puedo hacer eso con 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

La manera de hacerlo es poner en práctica un Owner-Drawn Combo Boxes. Consulte Owner-Drawn Combo Boxes en MSDN, o busque la muestra de Delphi, p. Owner Draw - ComboBox.