复选框问题。

Question

begin
  Label1.Caption:= '111111111111111';
end;当复选框被复选上的时候立即执行上面这行代码。这段代码应该放在哪？

Answer 1

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then
    Label1.Caption := '111111111111111';
end;

Answer 2

procedure TForm1.CheckBox1Click(Sender:TObject);
begin
  if TCheckBox(Sender).Checked then
    Label1.Caption:=   '111111111111111 '; 
end;