if-Konstrukionen bei checkboxen

[quendolineDD]

Gebe einfach den CheckBoxen eine gemeinsame OnClick-Methode und dazu einem Zähler. Bei Click wird der Zähler inkrementiert. Ist der Zähler kleiner 2, wird in das entsprechende Label der Caption der CheckBox geschrieben. Und Fertig.

Das kann dann zB so aussehen:

Delphi-Quellcode:

procedure TForm1.SetLabel(Sender: TObject);
begin
  if (Sender as TCheckBox).Checked then
    if (i < 2) then
    begin
      case i of
        1 : Form2.Label1.Caption := (Sender as TCheckBox).Caption;
        2 : Form2.Label2.Caption := (Sender as TCheckBox).Caption;
      end;
    end;
end;