Передача названия объекта в процедуре

[min@y™]

Чо вы орёте? Кругом люди спят!

С одной стороны обработчик события - это свойство-метод. Его задумывает автор класса, а создаёт и присваивает ссылку - пользователь этого класса. Никто не запрещает вызывать обработчик (как метод) откуда хочешь, передавая внутрь него подходящие параметры. Имхо, это иногда бывает удобно, а в других случаях - приводит к путанице и брейнфакингу.

Лично я использую такую возможность только в несерьёзных работах, ибо тупо лень писать нечто для обхода этого безобразия, ведь не все обработчики имеют тип TNotifyEvent, и могут принимать любые входные/выходные параметры и даже быть функциями, а не процедурами. Например, чтобы вручную вызвать обработчик события Application.OnIdle, нужно заводить дополнительную переменную boolean, чтобы подставлять её в вызов в качестве параметра по ссылке (var), что неудобно и пудрит мозг.

Параметр Sender позволяет однозначно идентифицировать объект, вызвавший событие, если этого захотел автор этого объекта. Также он может быть равным nil.

Ну и в заключение, копипаст из первого попавшегося проекта - один обработчик для разных событий разных объектов и компонентов.

procedure TFormMain.ActionExecute(Sender: TObject);
begin
  case TComponent(Sender).Tag of
    0: Close();
    1: if ActionProcess.Enabled and ShowMoveWarning() and not ProcessFiles()
         then MessageBox(Handle, PChar('Ошибка или прервано.'),
                         PChar('Ошибка'), MB_OK + MB_ICONERROR);
    10: AddFiles();
    12: DeleteSelectedFiles();
    15: ListView.SelectAll();
    40: PanelTop.Visible:= not PanelTop.Visible;
    41: SetDestFolder();

    200: AboutDialog.Execute();
    LIST_UPDATER_TAG: ListView.Invalidate();
  end;
end;

Этот обработчик присвоен не только событиям TAction.OnExecute, но и подходящим событиям (OnClick, OnDblClick и т.п.) визуальных компонентов на форме.

Это не всё, что я хотел тут написать. Просто задолбался.

[Alex11223]

Ну ActionExecute это таки более осмысленно, чем BitBtn1Click для всего подряд.

Имхо, это иногда бывает удобно, а в других случаях - приводит к путанице и брейнфакингу.

Лично я использую такую возможность только в несерьёзных работах, ибо тупо лень писать нечто для обхода этого безобразиям

Да, я примерно о том же (только случаи когда создание нормальной процедуры сильно сложнее по-моему как-то редко встречаются), а предыдущий оратор зачем-то пытался приучить новичка использовать это как наилучшее решение, и в совсем уж неподходящих ситуациях

Это не всё, что я хотел тут написать.

пишиещё

[3D Hunter]

использовать событийный метод имеет смысл лишь для ОДНОКЛАССОВЫХ объектов. Т.е. если это Button1Click(Sender:TObject), то вероятнее всего код, написанный внутри тела метода, будет относиться целиком к кнопке, при условии что Sender вообще там задействован Глупо было бы получить AV на строчке TButton(Sender).Caption := 'текст' при вызове Button1Click(Edit1). Оба оратора правы по-своему. Использовать можно все, главное делать это правильно.