有很多方法: 1 在创建combobox时,为其name赋值(不能相同) 例如: with TComboBox.Create(Self) do begin Name := 'combo1'; end 以后就可以: if (FindComponent('Combo1') is TComboBox) then ShowMessage((FindComponent('Combo1') as TComboBox).Text)2 在创建ComboBox时,建立一个数组: var comboarray :array of TComboBox; 以后就可以: ShowMessage(comboarray[0].Text);
1 在创建combobox时,为其name赋值(不能相同)
例如:
with TComboBox.Create(Self) do
begin
Name := 'combo1';
end 以后就可以:
if (FindComponent('Combo1') is TComboBox) then
ShowMessage((FindComponent('Combo1') as TComboBox).Text)2 在创建ComboBox时,建立一个数组:
var comboarray :array of TComboBox; 以后就可以: ShowMessage(comboarray[0].Text);