"Беда" с динамическим ComboBox

[Л.И.С.]

Доброго времени суток. У меня с динамическим ComboBox возникла такая беда: он не хочет обрабатывать первое нажатие. Подскажите как с этим бороться. Заранее спасибо.

[Serge_Bliznykov]

поясните, что за "первое нажатие"? Обычный (не динамический) комбобокс как его обрабатывает?

[Л.И.С.]

К примеру я хочу выбрать что либо из списка. Естественно для этого я должен нажать на красивый треугольник. Но отзывается треугольник только со второго клика. При первом клике он просто ничегошеньки не делает.
А обычный ComboBox сразу скидывает мне список.

[Serge_Bliznykov]

не подтверждаю. что-то Вы делаете не так.

проверяйте:
исходники: Project1_source.rar
exe-шник: Project1Exe.rar


код там такой:

procedure TForm1.Button1Click(Sender: TObject);
var myList: TComboBox;
begin
  TButton(Sender).Enabled := false; // кнопку выключим

  myList := TComboBox.Create(Self);
  myList.Parent := Self ;
  myList.Left := 10 ;
  myList.Top := 70 ;
  myList.Items.Append('Картофель');
  myList.Items.Append('Лук');
  myList.Items.Append('Капуста');
  myList.Items.Append('Морковь');
  myList.ItemIndex := 0;
end;

[Л.И.С.]

Подтверждаю Ваш код и я. Но...
В моём случае ComboBox себе не принадлежит. В остальном код идентичен.
Но чёрт подери! Изменил Ваш код(положил панель, создал в ней): тоже работает как надо. А в нужной программе не работает!
Ну чудеса, да и только!

[Serge_Bliznykov]

а Вы не стесняйтесь, показывайте ваш код, который "в нужной программе не работает".

[Л.И.С.]

Пожалуйста.

//Создание ComboBox для выбора стиля units
  DinamicCB[1]:=TComboBox.Create(ScrollBox1);
  DinamicCB[1].Parent:=ScrollBox1;
  DinamicCB[1].Top:=40;
  DinamicCB[1].Left:=20;
  DinamicCB[1].Width:=145;
  DinamicCB[1].Height:=21;

  //Заполнение ComboBox значениями стиля units
  DinamicCB[1].Items.Add('lj');
  DinamicCB[1].Items.Add('real');
  DinamicCB[1].Items.Add('metal');
  DinamicCB[1].Items.Add('si');
  DinamicCB[1].Items.Add('cgs');
  DinamicCB[1].Items.Add('electron');
  DinamicCB[1].Items.Add('micro');
  DinamicCB[1].Items.Add('nano');
  DinamicCB[1].ItemIndex:=0;

[kropotkina-alice]

Проверила. С помощью CTRL+C и CTRL+V.
Этот кусочек кода работает нормально, комбик срабатывает с первого раза...
Что вы в Павлика Морозова играете?
Выкладывайте имеющий к этой проблеме ваш кусок кода полностью - экстрасенсы нынче в отпусках...

[Л.И.С.]

Сообщение от kropotkina-alice

Проверила. С помощью CTRL+C и CTRL+V.
Этот кусочек кода работает нормально, комбик срабатывает с первого раза...
Что вы в Павлика Морозова играете?
Выкладывайте имеющий к этой проблеме ваш кусок кода полностью - экстрасенсы нынче в отпусках...

Многовато будет...

[Л.И.С.]

Но если хотите...
Вот.