Пример. Первоначальное состояние программы может быть установлено с помощью инспектора объектов, либо задано в программе в обработчике FormCreate

Первоначальное состояние программы может быть установлено с помощью инспектора объектов, либо задано в программе в обработчике FormCreate.

procedure TForm1.FormCreate(Sender: TObject);

begin

CheckBox1.Checked:= true;

Button1.Enabled:= true;

CheckBox2.Checked:= false;

Button2.Enabled:= false;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

If CheckBox1.Checked then Button1.Enabled:= true

else Button1.Enabled:= false;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

If CheckBox2.Checked then Button2.Enabled:= true

else Button2.Enabled:= false;

end;

Дата добавления: 2014-01-07