Как сосчитать количество кнопок?
Аноним
нажатии на кнопку, в текстовом поле компонента Label
отображалось количество кнопок, расположенных на форме.
Аноним
for i=0 to form1.ComponentCount-1 do
if form1.components.type='TButton' then
inc(j);
Цитата:
On 2002-03-21 1530, Anonymous wrote
что-то в этом роде тебе поможет
for i=0 to form1.ComponentCount-1 do
if form1.components.type='TButton' then
inc(j);
Почти правильно.
Просто для сравнения типов существует ключевое слово is. Да, и еще не Components a Controls То есть
for i=0 to form1.ControlsCount-1 do
if form1.Controls is TButton then
inc(j);
Хотя кнопки бывают и не TButton.