Помогите настроить ComboBox

[DemonXT]

У меня есть TComboBox -> cbFormat. Внутри есть какой-то список. Можно сделать так, чтоб в случае его активности была возможность выбрать элементов из списка, а в случае потери фокуса нет?
Делаю так:

procedure Tfm.FormCreate(Sender: TObject);
begin
  cbFormat.Style:=csSimple;
end;

procedure Tfm.cbFormatEnter(Sender: TObject);
begin
  cbFormat.Style:=csOwnerDrawFixed;
end;

procedure Tfm.cbFormatExit(Sender: TObject);
begin
  cbFormat.Style:=csSimple;
end;

но почему-то при фокусе на компоненте он исчезают!

[Terran]

Попробуйте так:

...
procedure TForm1.cbFormatEnter(Sender: TObject);
begin
 cbFormat.Style:= csDropDownList;
 cbFormat.Style:=csOwnerDrawFixed;
end;
...

Что бы cbFormat начинал работать сразу при появлении формы установите фокус к примеру на Edit или ещё как какой-нибудь объект.

[DemonXT]

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

Попробуйте так:

...
procedure TForm1.cbFormatEnter(Sender: TObject);
begin
 cbFormat.Style:= csDropDownList;
 cbFormat.Style:=csOwnerDrawFixed;
end;
...

Не помогло.

Что бы cbFormat начинал работать сразу при появлении формы установите фокус к примеру на Edit или ещё как какой-нибудь объект.

У меня примерно так и настроено.
Наблюдается странная картина: при переключении на cbFormat его стиль меняется, но он становится какой-то неактивный! Не реагирует н на мышку ни на клавиатуру!

[DemonXT]

Неужели никто не сталкивался с подобной проблемой?
Может посоветуете TComboBox от сторонних разработчиков.

[Neeter]

Дык, может так:

procedure TForm1.cbFormatEnter(Sender: TObject);
begin
 cbFormat.Style:=csDropDown;
end;

Или я не понял вопрос?

[DemonXT]

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

Или я не понял вопрос?

Дело в том, что поменять стиль не проблема, но вот почему-то компанент после этого становиться неактивным. Не реагирует вообще не на какие контролы!

[Neeter]

Почему же, я когда изменил на csDropDown, все работать стало, вы нажмите на текст в combobox'е и потом уже можно будет открыть его список

[DemonXT]

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

Почему же, я когда изменил на csDropDown, все работать стало, вы нажмите на текст в combobox'е и потом уже можно будет открыть его список

Дело в том, что в моём случае при щелчке мыши на компонент он замирает! Переключения с csSimple на csDropDown происходит, но сфокусироваться на компоненте и выбрать элементы из списка невозможно!
Для наглядности привожу полный код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfm = class(TForm)
    cbFormat: TComboBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure cbFormatEnter(Sender: TObject);
    procedure cbFormatExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm: Tfm;

implementation

{$R *.dfm}

procedure Tfm.cbFormatEnter(Sender: TObject);
begin
  cbFormat.Clear;
  cbFormat.Items.Append('A');
  cbFormat.Items.Append('B');
  cbFormat.Items.Append('C');
  cbFormat.Style:=csOwnerDrawFixed;
end;

procedure Tfm.cbFormatExit(Sender: TObject);
begin
  cbFormat.Style:=csSimple;
end;

procedure Tfm.FormActivate(Sender: TObject);
begin
  Memo1.SetFocus;
end;

procedure Tfm.FormCreate(Sender: TObject);
begin
  cbFormat.Style:=csSimple;
end;

end.

Убедитесь сами.

[Terran]

DemonXT, попробуйте так:

Procedure TForm1.cbFormatEnter(Sender: TObject);
Begin
  cbFormat.Clear;
  cbFormat.Style:= csDropDownList;
  cbFormat.Style:=csOwnerDrawFixed;
  cbFormat.Items.Append('A');
  cbFormat.Items.Append('B');
  cbFormat.Items.Append('C');
End;

Я у себя проверил. Всё хорошо работает и открывается. Всё выбирается с помощью мышки и клавиатуры. Только если с помощью TAB'a переключать фокус, то тогда он не действует...

[DemonXT]

Всем спасибо. С проблемой справился. Помогли на другом форуме.
На сколько я понял просто так сменить стиль у ComboBox-a нельзя. При принудительной смени VCL пересоздаёт его с новым стилем. Из-за чего фокус идёт в некуда.
Привожу рабочее решение, может кому пригодиться (c) GunSmoker:

const
  WM_SETCBSTYLE = WM_USER + 1;

type
  Tfm = class(TForm)
    ...
  private
    { Private declarations }
    procedure WMSetCBStyle(var Msg: TMessage); message WM_SETCBSTYLE;
    ...
  end;

...

procedure Tfm.cbFormatEnter(Sender: TObject);
begin
  if cbFormat.Style = csDropDown then
    Exit;
  PostMessage(Handle, WM_SETCBSTYLE, 1, 0);
end;

procedure Tfm.cbFormatExit(Sender: TObject);
begin
  if cbFormat.Style = csSimple then
    Exit;
  PostMessage(Handle, WM_SETCBSTYLE, 0, 0);
end;

procedure Tfm.WMSetCBStyle(var Msg: TMessage);
begin
  cbFormat.OnEnter := nil;
  cbFormat.OnExit := nil;
  try
    if Msg.wParam <> 0 then
      cbFormat.Style := csDropDown
    else
      cbFormat.Style := csSimple;
  finally
    cbFormat.OnEnter := cbFormatEnter;
    cbFormat.OnExit := cbFormatExit;
  end;
end;