|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Назначения событий сразу нескольким обьектам
Доброго времени суток !
Подскажите как осуществить примерно следующее: на форме есть фрэйм с несколькью обьектами, допустим 20 кнопок, можно ли описать событие OnClick сразу для всех при появлении фрейма,но с тем условием, что некоторые кнопки должны обрабатывать при клике другие процедуры Например кнопка 1,2,3...и тд выполняет одну функцию , кнопка 12- вторую, кнопка 20- третью ? |
#2
|
|||
|
|||
а почему нет? можно
|
#3
|
|||
|
|||
А поподробней ? Плизззз
|
#4
|
|||
|
|||
Делаешь столько методов, сколько у тебя функций. Далее просто присваиваешь. Все методы должеы быть типа TNotifyEvent:
Код:
procedure (Sender : TObject) of object; Далее просто присваиваешь их свойству OnClick. |
#5
|
|||
|
|||
Не это не то , мне не надо чтоб одна кнопка имела несколько одноименных методов и могла выполнять различные функции, наоборот , мне надо разом назначить всем кнопкам, за исключение некоторых , одни и те же действия, чтоб не создавать событие OnClick для кождой в отдельности .
|
#6
|
|||
|
|||
Ну а я о чем.
Допустим, описан некоторый метод ButtonClick. Так его разным кнопкам в OnClick и назначаешь: Код:
type TForm1 = class(TForm) ... public procedure ButttonClick_1(Sender : TObject); procedure ButttonClick_2(Sender : TObject); end; ... procedure ShowFrame(AFrame : TMyFrame); begin ... // у нескольких кнопок одинаковый обработчик AFrame.Button1.OnClick := ButttonClick_1; AFrame.Button2.Onclick := ButttonClick_1; AFrame.Button3.Onclick := ButttonClick_1; // А у этой - другой AFrame.Button4.Onclick := ButttonClick_2; end; |