将图像放在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,100,100); //Test
        OutputDebugString(PCHar(Format('aa %d %d %d',[Message.WParam,Message.LParam,ChDirComboBox.Handle])));
      end;
  end;
  FChDirComboWndProc(Message); // process message
end;