[РЕШЕНО] Как можно нескольким компонентам назначить ОДИН обработчик событий?

[digitalis]

Есть несколько кнопок. Можно ли написать для всех один обработчик, чтобы OnClick в Edit записывался Caption этой кнопки ? Простой метод:

  ButMas : array[1..6] of TButton ;
............
implementation

{$R *.dfm}

procedure TForm1.FormCreate (Sender: TObject);

var
  Index: Integer;

begin
  for Index:= 1 to 6 do
    begin
      ButMas[Index]:= TButton.Create(Self);
      ButMas[Index].Parent:= Self;
      ButMas[Index].Top:= 12 + 40 * Index;
   и.т.д.

А без массива кнопок, для просто созданных перетаскиванием на форму - никак ?

[Вадим Мошев]

Да, можно.

1. Киньте на форму столкьо кнопок, сколько вам надо.
2. Выделите их мышкой
3. В инспекторе объектов в разделе найдите нужное событие (onClick, например)
4. Сделайте по нему двойной клик, как будто пишете событие для одного элемента.
5. У вас появится один обработчик, но работать он будет для всех элементов.
6. Чтобы понять, на какую кнопку нажали, надо использовать формальный параметр sender обработчика событий. Для этого в обработчкие просто напишите такой код:

showMessage( 'Вы нажали кнопку ' +  (sender as TButton).caption );

[Аватар]

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender is TButton then Edit1.Text:=TButton(Sender).Caption;
end;

[Вадим Мошев]

Написал пример
1.rar

[digitalis]

Спасибо всем, понял. Буду пробовать. Темку можно прикрыть.