[kaizer131]

Доброго времени суток !

Подскажите как осуществить примерно следующее:

на форме есть фрэйм с несколькью обьектами, допустим 20 кнопок,
можно ли описать событие OnClick сразу для всех при появлении фрейма,но с тем условием, что некоторые кнопки должны обрабатывать при клике другие процедуры
Например кнопка 1,2,3...и тд выполняет одну функцию ,
кнопка 12- вторую, кнопка 20- третью ?

[ApplicatiOn]

а почему нет? можно

[kaizer131]

А поподробней ? Плизззз

[lmikle]

Делаешь столько методов, сколько у тебя функций. Далее просто присваиваешь. Все методы должеы быть типа TNotifyEvent:

Код:

procedure (Sender : TObject) of object;

Далее просто присваиваешь их свойству OnClick.

[kaizer131]

Не это не то , мне не надо чтоб одна кнопка имела несколько одноименных методов и могла выполнять различные функции, наоборот , мне надо разом назначить всем кнопкам, за исключение некоторых , одни и те же действия, чтоб не создавать событие OnClick для кождой в отдельности .

[lmikle]

Ну а я о чем.
Допустим, описан некоторый метод 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;