Форум: "Основная";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
ВнизСобытия на кнопках Найти похожие ветки
← →
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]СПАСИБО
← →
homm © (2007-04-11 16:21) [9]Пожалуста.
← →
Ega23 © (2007-04-11 16:47) [10]
>
> 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. Не <твоя процедура>, а метод. Процедура и метод - разные вещи.
← →
MsGuns © (2007-04-11 21:19) [11]Не слушайте этих умников - см. TActionList
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c