Checkbox onClick

[RWarnecke]

Zitat:

Zitat von Bomberbb

Wenn Du im Quelltext so etwas schreibst:

Delphi-Quellcode:

checkbox.checked:=true;

Wird beim Ausführen dieser Zeile das onClickEreignis aufgerufen. Was man ja nicht unbedingt haben will...

Ok, aber ich habe in Beitrag #4 geschrieben, dass Du das OnClick-Ereignis weglassen solltest.

Die andere Variante wäre noch folgende :

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin
  CheckBox1Click(Sender);
end;

procedure TForm8.CheckBox1Click(Sender: TObject);
begin
  if (Sender = Button1) then
  begin
    if CheckBox1.Checked then
      ShowMessage('CheckBox ist true !!')
    else
      ShowMessage('CheckBox ist false !!');
  end;
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked := true;
end;