Возможность редактирования текста в ComboBox

[Alter]

Есть стили у ComboBox, csOwnerDrawFixed и csOwnerDrawVariable. Строчки отрисовываются вручную при этих стилях. В таких режимах как-то надо заставить компонент давать редактировать текст как при csDropDown, не теряя ручной отрисовки строк.
Какие есть способы для этого?

[Stilet]

Честно говоря я бы не мороча особо яйки, наложил на комбик сверху Эдит, так чтоб Эдит не закрывал стрелочку комбика. Тогда прога будет "делать вид" что ее Комбик супер-пупер навороченый, кто подмены то заметит?

[asmodey1]

Например :

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
ComboBox1.Style:=csDropDown;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Style:=csOwnerDrawFixed;
end;

[Alter]

Вообщем ничего лучше, чем сделать потомка от ComboBox не придумал.

unit ComboBoxDirColor;

interface

uses
  Windows, SysUtils, Classes, Controls, StdCtrls, Graphics;

type
  TComboBoxDirColor = class(TComboBox)
  private
    { Private declarations }
  protected
    procedure DrawItem(Index: Integer; Rect: TRect;
                       State: TOwnerDrawState); override;
    procedure CreateParams(var Params: TCreateParams); override;
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyCtrl', [TComboBoxDirColor]);
end;

{ TComboBoxDirColor }

procedure TComboBoxDirColor.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 if not (Self.Style in [csOwnerDrawFixed, csOwnerDrawVariable]) then
 with Params do
  Style := Style or CBS_OWNERDRAWFIXED;
end;

procedure TComboBoxDirColor.DrawItem(Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
 if (odSelected in State) then
  Canvas.Brush.Color := $CCCCCC
 else
  Canvas.Brush.Color := clWhite;
 Canvas.FillRect(Rect);
  case DirectoryExists(Items[index]) of
 True: begin
    Canvas.Font.Color := clGreen;
       end;
 False:begin
    Canvas.Font.Color := clRed;
       end;
  end;
 Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
 inherited;
end;

end.

Если нужно просто контрол с возможностью редактирования, без отрисовки(у меня специфическая нужда в этом была ), то удалить это

    procedure DrawItem(Index: Integer; Rect: TRect;
                       State: TOwnerDrawState); override;

procedure TComboBoxDirColor.DrawItem(Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
 if (odSelected in State) then
  Canvas.Brush.Color := $CCCCCC
 else
  Canvas.Brush.Color := clWhite;
 Canvas.FillRect(Rect);
  case DirectoryExists(Items[index]) of
 True: begin
    Canvas.Font.Color := clGreen;
       end;
 False:begin
    Canvas.Font.Color := clRed;
       end;
  end;
 Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
 inherited;
end;

и название класса поменять, чтобы не путать.

[asmodey1]

А чем мой вариант не устроил ?

[avmaksimov]

Сообщение от asmodey1

А чем мой вариант не устроил ?

ПОтому что код не рабочий. Единственный верный вариант написал автор. Ещё можно проверку в Create убрать и стиль должен быть обязательно csDropDown.