События на кнопках

← →
MVA` (2007-04-11 15:59) [0]

Подскажите, пожалуйста, как приписать одно и то же событие сразу большому числу кнопок?

← →
Сергей М. © (2007-04-11 16:00) [1]

так жа как и малому

← →
MVA` (2007-04-11 16:05) [2]

Кнопок 100, а 30 из них надо приписать, например, возможность открывать WORD.
И что, Buttton(I)click для каждой кнопки?

← →
Ega23 © (2007-04-11 16:07) [3]

нет.

← →
homm © (2007-04-11 16:07) [4]

> И что, Buttton(I)click для каждой кнопки?

Нет, Button1Click вполне будет достаточно. Выдели их все и назначь один обработчик onClick

← →
Desdechado © (2007-04-11 16:07) [5]

Button30.OnClick:=ButtonWordClick;

← →
Elen © (2007-04-11 16:08) [6]

в цикле типа такого :
for i:=0 to form1.componentscount-1 do if form1.components[i].classname:="TButton" then TButton(form1.components[i]).OnClick:=<твоя процедура>

← →
Reindeer Moss Eater © (2007-04-11 16:08) [7]

Разумеется

← →
MVA` (2007-04-11 16:15) [8]

СПАСИБО

Пожалуста.

>
> for i:=0 to form1.componentscount-1 do
> if form1.components[i].classname:="TButton"
> then TButton(form1.components[i]).OnClick:=<твоя процедура>
>

1. Будет работать ТОЛЬКО для экземпляров TButton. Для наследников - не будет. Здесь лучше is использовать: if (Components[i] is TButton) then ...
2. Не <твоя процедура>, а метод. Процедура и метод - разные вещи.

Не слушайте этих умников - см. TActionList

События на кнопках Найти похожие ветки