Вытащить инфу из RT компонентов

← →
SCH (2004-05-17 14:45) [0]

Созданы в RunTime несколько ComboBox. Как по их индексу узнать в каком комбо, какая строка выбрана.
Заранее благодарен.

← →
PVOzerski © (2004-05-17 14:54) [1]

А что такое индекс ComboBox"а?

← →
Skier © (2004-05-17 14:55) [2]

Owner.Components[...]
TComboBox.ComponentIndex
TComboBox.ItemIndex
?

← →
PVOzerski © (2004-05-17 15:02) [3]

А что такое индекс ComboBox"а?

procedure TForm1.FormCreate(Sender: TObject);
begin
with TCombobox.Create(self) do
begin
Parent:=self;
Name:="Combo1";
OnChange:=ComboBoxOnChange;
Top:=0;
Items.Add("One");
Items.Add("Two");
end;
with TCombobox.Create(self) do
begin
Parent:=self;
Name:="Combo2";
OnChange:=ComboBoxOnChange;
Top:=20;
Items.Add("One");
Items.Add("Two");
end;
end;

procedure TForm1.ComboBoxOnChange(Sender: TObject);
var
cb:TCombobox;
begin
cb:=TComboBox(Sender);
ShowMessage(Format("%s - %s",[cb.Name,cb.Items[cb.ItemIndex]]));
end;

В конце концов можно самому придумывать индексы TComboBox"ов просто присваивая свойству Tag новое значение. :)

Вытащить инфу из RT компонентов Найти похожие ветки