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;

[David Martens]

Vor dem gleichen Problem stand ich, allerdings sind bei mir die Labels links von der Checkbox.

Du kannst die Checkboxen ohne Funktion auf das Formular legen und das Label genau (oder auch etwas mehr) über die Checkbox. An den Text fürs Label kommen dann immer die gleiche Anzahl von Leerzeichen. Dann noch die Idee von himitsu und du hast was du willst.

Allerdings würde ich das Ganze in eine eigene Komponente gießen, dann kannst du sie wie ein normales Label benutzen.

Gruß David

[DeddyH]

Oder man legt die Checkboxen auf ein Panel, setzt sie auf cbGrayed und disabled das Panel. IIRC sind sie dann nicht mehr anklickbar, behalten aber die Schriftfarbe.

[Keks]

Vielen Dank Euch allen für die Lösungsvorschläge. Ist zwar schade, dass es keine "direkte" Lösung gibt, aber im Prinzip sind die Alternativen auch brauchbar. Ich werde mir noch ein paar Gedanken machen, welche Lösung für meinen Fall am besten ist. Danke.