Доброго времени суток. Немного под запутавшись, решил написать сюда.
Создаю динамически кнопку
Код:
...
With TBitBtn.Create(MyForm) do
begin
Parent := MyForm;
OnClick := Prc(nil).MyBtnClick;
end;
...
и есть класс обработки события
Код:
type Prc = class
procedure MyBtnClick(Sender: TObject);
end;
procedure Prc.MyBtnClick(Sender: TObject);
begin
///обращение тут
end;
Собственно вопрос, как обратиться к кнопке, которая вызывает событие, собственно, в процедуре-обработчике данной?