Lazarus. Обьект Sender

Question

Lazarus. Обьект Sender

Тамирлан Галеев Знаток (282), на голосовании 2 месяца назад

Доброго времени суток. Кто знает, для чего нужен Sender:TObject в Lazarus?
Например в процедуре TfMain.bEditClick(Sender:TObject).

Answer 1

Sender в LCL это ссылка на объект который сгенерировал событие, например чтобы для события OnClick не писать много одинаковых обработчиков ты можешь использовать Sender

 procedure TfMain.bEditClick(Sender: TObject); 
begin 
  if Sender is TEdit then 
     with Sender as TEdit do 
       if Name = 'bEdit' then fMain.Caption := Name 
       else Text := ''; 
end;