Вызов событий Combobox созданных runtime

← →
dzmitry_li (2005-11-14 16:32) [0]

Нда, споткнулся на простом коде...
создаю Combobox runtime, устанавливаю обработчик событий, но они как я не бьюсь - не вызываются,
Delphi2005 и Delphi7 проверено и неработоспособно... куда плясать?

код ниже

procedure TForm1.FormCreate(Sender: TObject); begin Col.Combo:=TComboBox.Create(nil); // Form1, Application Col.Combo.ItemHeight:=13; Col.Combo.DropDownCount:=16; Col.Combo.Style:=csDropDownList; Col.Combo.Parent:=Form1; Col.Combo.OnChange:=ComboBox1Change; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin ShowMessage("Ну вызовись этот грёбаный метод!") end;

← →
Reindeer Moss Eater © (2005-11-14 16:42) [1]

Прочитай Note к свойству OnChange в справке.

← →
dzmitry_li (2005-11-14 16:54) [2]

блин...

ну ладно... читаю хелп по OnClick (специально и внимательно), не нахожу крамолы
и пишу

Col.Combo.OnClick:=ComboBox1Click; end; procedure TForm1.ComboBox1Click(Sender: TObject); begin ShowMessage("Ну вызовись этот грёбаный метод!") end;

результат тот же...

из всех перепробаванных методов рантайм ловятся только события клавиатуры
непорядок - как исправить

← →
DesWind © (2005-11-14 17:01) [3]

Этот код полностью рабочий. А что такое Col ?

← →
dzmitry_li (2005-11-14 18:03) [4]

переволновался... прошёлся по улице (когда шёл домой с работы), и проблема решилась
отвечу сразу на вопрос что такое Col, а допустим это
type TCol=record p: TPanel; Combo: TComboBox; end; var Col: TCol;
второе, хотел внедрить в StringGrid в некоторые ячейки выпадающий список ComboBox
соответственно делал вышеприведённый код.Забавно что когда Parent форма - события работают, когда парент StringGrid - снова не работает.
То что у меня проглотилось и заработало вот код
Col.p:=TPanel.Create(Application); Col.p.Visible:=True; Col.p.Parent:=StringGrid2; Col.Combo:=TComboBox.Create(nil); Col.Combo.Visible:=True; Col.Combo.Tag:=i; Col.Combo.Parent:=Col.p; Col.Combo.OnClick:=ComboBox1Click; Col.Combo.Items.Add("1"); Col.Combo.Items.Add("2"); Col.Combo.Items.Add("3"); Col.Combo.Height:=100; Col.p.Width:=Col.Combo.Width; Col.p.Height:=Col.Combo.Height;
конечно это черновой код, для теста, в реальности не так будет реализовано - не пугайтесь
спасибо тем кто пытался помочь

Вызов событий Combobox созданных runtime Найти похожие ветки