Box einer Checkbox ausblenden/deaktivieren

[himitsu]

Checkbox ohne Text (eventuell aber mit 1-2 Leerzeichen) und daneben ein normales Label.


Dann eventuell noch Label.FocusControl auf die jeweiligen CheckBoxen setzen und Folgendes allen diesen Labels zuweisen.

Delphi-Quellcode:

procedure TForm1.LabelClick(Sender: TObject);
begin
  if (Sender as TLabel).FocusControl is TCheckBox then
    with (Sender as TLabel).FocusControl as TCheckBox do
      Checked := not Checked;
end;