Как в Combobox убрать список?

[xexxex]

Победил я этот комбобокс всетаки.
Кому интересно, выкладываю код.

type
  TComboBox = class(StdCtrls.TCombobox)
    procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer); override;
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
  end;


  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TComboBox }

procedure TComboBox.CNCommand(var Message: TWMCommand);
var Info: TComboBoxInfo;
begin
  case Message.NotifyCode of
    CBN_DROPDOWN:
      begin
        Info.cbSize := SizeOf(Info);
        FListHandle := 0;
        if GetComboBoxInfo( Self.Handle,  Info) then
          if Info.hwndList <> 0 then begin
            FListHandle := Info.hwndList;
            FDefListProc := Pointer(GetWindowLong(FListHandle, GWL_WNDPROC));
            SetWindowLong(FListHandle, GWL_WNDPROC, Longint(FListInstance));
          end;
      end;
    CBN_CLOSEUP:
      if FListHandle <> 0 then
        SetWindowLong(FListHandle, GWL_WNDPROC, Longint(FDefListProc));
  end;
   inherited;
end;

procedure TComboBox.ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer);
begin
  if ComboWnd = FListHandle then
    with Message do
      if Msg = WM_WINDOWPOSCHANGING  then
        with PWindowPos(lParam)^ do
            // просто скрываем, а можно изменить размер\положение списка
          flags := Flags or SWP_HIDEWINDOW;
  inherited;
end;