При задании одного обработчика события для нескольких элементов управления в процедуре обработки события используется параметр Sender для выяснения какой именно элемент управления инициировал событие.
Это проиллюстрировано в следующей программе, которая выводит название выбранной радиокнопки в поле ввода:
TForm1 = class(TForm) private nButtons:integer; RadioButtons: array [1..5] of TRadioButton; Procedure RadioButtonsClck(Sender:TObject);////procedure TForm1.RadioButtonsClck(Sender: TObject);var i:integer;begin for i:=1 to nButtons do if Sender = RadioButtons[i] then Edit1.Text:=RadioButtons[i].Caption;end;
