新手问题，关于CheckBox.

Question

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Button2.Caption:= '111111111';
end;这是当CheckBox1被打勾的时候执行Button2.Caption:= '111111111';那么当CheckBox1又不被选中时立刻执行Button2.Caption:= '222222222';应该怎么做？？？？？

Answer 1

procedure TForm1.chk1Click(Sender: TObject);
begin
  if chk1.Checked then
    Button2.Caption := '111111111'
  else
    Button2.Caption := '222222222';
end;