Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

MVA` © (2007-04-11 15:59:00)
Подскажите, пожалуйста, как приписать одно и то же событие сразу большому числу кнопок?

MsGuns (2007-04-11 21:19:00) [1]
Не слушайте этих умников - см. TActionList

Ega23 (2007-04-11 16:47:00) [2]

>
> 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. Не <твоя процедура>, а метод. Процедура и метод - разные вещи.

homm (2007-04-11 16:21:00) [3]
Пожалуста.

MVA` (2007-04-11 16:15:00) [4]
СПАСИБО

Elen (2007-04-11 16:08:00) [5]
в цикле типа такого :
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:00) [6]
Разумеется

Ega23 (2007-04-11 16:07:00) [7]
нет.

homm (2007-04-11 16:07:00) [8]
> И что, Buttton(I)click для каждой кнопки?

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

Desdechado (2007-04-11 16:07:00) [9]
Button30.OnClick:=ButtonWordClick;

MVA` (2007-04-11 16:05:00) [10]
Кнопок 100, а 30 из них надо приписать, например, возможность открывать WORD.
И что, Buttton(I)click для каждой кнопки?

Сергей М. (2007-04-11 16:00:00) [11]
так жа как и малому

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »