Имя объекта, который сгенерировал событие

[mixer94]

Вобщем у меня вопрос такой, как определить имя объекта, который сгенерировал событие....
К примеру по нажатию кнопки происходит событие Button1Click(Sender: TObject) как можно определить имя объекта, вызвавшего событие. Можно ли это сделать с помощью Sender?
И ещё, можно ли объектам присваивать свои события(процедуры)?

[Neeter]

1) конечно можно с помощью Sender:

 (Sender as TButton).Caption := 'caption';

или

 TButton(Sender).Caption := 'caption';

2) Конечно можно присваивать свои события:

 ...
 private
 ...
  procedure ButtonClick(Sender: TObject);
 ...
procedure ...
begin
 Button1.OnClick := ButtonClick;
end;

Самое главное, чтобы параметры совпадали.

[mixer94]

За 1 большое спасибо,
на счёт второго: нужно чтобы были свои параметры, к примеру событию onclick кнопки сделать bclick(name: string) или как-то по другому...

[Neeter]

нет, надо так:

bclick(Sender: TObject);

ведь обрабатывается событие так:

procedure Button1Click(Sender: TObject);

а тут параметр

Sender: TObject

[Квэнди]

Сообщение от mixer94

За 1 большое спасибо,
на счёт второго: нужно чтобы были свои параметры, к примеру событию onclick кнопки сделать bclick(name: string) или как-то по другому...

Объявить наследника, переопределить соответствующие методы.