Скачать: CL | DM;

Вытащить инфу из 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"а?

---

← →
Polevi ©   (2004-05-17 15:11) [4]

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;

---

← →
WebErr ©   (2004-05-17 15:16) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c