ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

А именно, как получить передать имя кнопки, которую нажали?
Нажата Btn[1], сменился статус у Chk[1] и т.д.
А не нажата любая Btn, а меняется статус у Chk[1]

Вроде, понятно сформулировал.

Тогда немного посложнее. В процедуре нужно ссылаться на указанный объект:

Код:

procedure TForm1.DynamicCheckBoxChange(Sender: TObject);
begin
 if (sender as TButton).Caption='123' then
  chk[1].Checked:=true;
end;

Здесь Sender - это переменная, которая указывает на вызванный объект (нажатая кнопка). Таким образом, если у нажатой кнопки Caption = '123' то выполнится условие chk[1].Checked:=true;