Добрый день. Написал следующий код :
Код:
procedure GetCheck ( Buff_box : TCheckBox );
begin
Form1.CheckBox1.Checked := FALSE;
Form1.CheckBox2.Checked := FALSE;
Buff_box.Checked := TRUE;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
GetCheck ( Form1.CheckBox1 );
end;
Цель кода следующая - при клике на объект CheckBox1 этот объект посылается как параметр в функцию GetCheck. Смысл этой функции - убрать галочки со всех объектов CheckBox на форме, после чего поставить галочку только в тот CheckBox, который передан параметром. Код работает некорректно, при нажатии на CheckBox1 объект мигает и выкидывает в ассемблерский код. Буду рад помощи. Заранее спасибо.