Probleme mit CheckBox(en)

[Luckie]

30 Groupboxen? In Worten dreißig?

[EWeiss]

Zitat von Luckie:

30 Groupboxen? In Worten dreißig?

Gut das er dann nicht mit VB6 arbeitet, da gibt es ein Limit von 255 Controls auf 1 Form.

gruss

[Dejan Vu]

Immer wieder erbauend, wie hier mit Anfängerfragen umgegangen wird.

[Perlsau]

Ich würde vorschlagen, daß du, da du ja exakt zu verstehen scheinst, was der TE eigentlich will und was bei ihm nicht funktioniert, ihm die Lösung, die du ja offenbar parat hast, nicht weiter vorenthältst. Ich verstehe den TE nämlich nicht wirklich, weder sein Problem noch was er überhaupt möchte oder was es genau bedeutet, daß etwas nicht funktioniert ...

[baumina]

Trete nicht
auf den kleinen Wurm,
denn auch für dich
gibt es grössere Füße ...


Zitat: possum

[stahli]

Herzlich willkommen erst mal.
Tja, auf solche Antworten hast Du Dich wohl nicht gefreut...

Das Problem ist, dass die Fragestellung zu unklar ist.
Falls Du noch dabei bist, dann versuche mal, das Problem in kleinere Bereiche zu unterteilen.

Also z.B. mal mit 3 GroupBoxen anfangen statt mit 30.
Das erhöht schon mal die Übersichtlichkeit.

Dann kannst Du hier auch den Quelltext zitieren (einschließen in Delphi-Tags - der Helm oben über dem Editor) oder Dein Projekt zippen und als Anlage dran hängen.

Also wenn Du genauer fragen kannst dann wirst Du auch Antworten erhalten, die Dir weiter helfen.
Das wird schon noch.

[BadenPower]

Ich habe einmal ein LAZARUS-Beispiel mit

6x GroupBox
1x CheckGroup (mit 3 Items)
3x CheckBox

gemacht, welches funktioniert und das macht, was der TE wünscht.

Im Anhang ist eine Exe und alle Projektdateien incl. Source.

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckGroup1: TCheckGroup;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    procedure CheckBox1Change(Sender: TObject);
    procedure CheckBox2Change(Sender: TObject);
    procedure CheckBox3Change(Sender: TObject);
    procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckGroup1.Checked[0] := true;
  CheckGroup1.Checked[1] := true;
  CheckGroup1.Checked[2] := true;
end;

procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: Integer);
begin
  case Index of
   0: GroupBox1.Visible := CheckGroup1.Checked[0];
   1: GroupBox2.Visible := CheckGroup1.Checked[1];
   2: GroupBox3.Visible := CheckGroup1.Checked[2];
  end;
end;

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  GroupBox4.Visible := CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Change(Sender: TObject);
begin
   GroupBox5.Visible := CheckBox2.Checked;
end;

procedure TForm1.CheckBox3Change(Sender: TObject);
begin
  GroupBox6.Visible := CheckBox3.Checked;
end;

end.

[FightingH5N1]

So viele Antworten in so kurzer Zeit, Danke erstmal.

Was nicht funktioniert ist folgende: Ich setze den Haken in den betroffenen Feldern und die GroupBoxen bleiben trotzdem sichtbar. Mehr Funktionen hat das Programm bis jetzt, wie im ersten Post beschrieben, nicht.

Ja, 30. Es wird ein Kassenprogramm zum Ausdrucken von Bons für den Verein. Da brauche ich für jeden Artikel eine Group, in der nachher jeweils ein Image, ein Text zum entsprechenden Artikel, zwei Buttons und ein Edit enthalten ist.
Will ich jetzt also einen Artikel ausblenden, weil es zb. keine Cola mehr gibt, mache ich einfach den Hacken raus, ausserdem kann man sich so seine Artikel auch Gruppieren und von anderen abgrenzen.

Das meinte ich mit CheckGroup
Nur passiert wie beschrieben leider gar nichts, mit den normalen Checkboxen schon, nur eben eingeschränkt.


Meine Delphi Version weiss ich leider gerade nicht auswendig, ich versuche es herauszufinden, wenn ich zuhause bin. Ich nutze Lazarus 1.4.


Ich dachte der Quellcodeausschnitt reicht, da es sich eh nur immer wiederholt, natürlich mit zu den CheckBoxen und GroupBoxen passenden Endungen.



@Sir Rufo: Ich probiere das später gleich mal

BTW: Ich meinte natürlich keine Gartengeräte, da wahr ich wohl doch schon etwas Müde
Verzeiht bitte auch das aktuell fehlende Scharf- S, ich schreibe gerade an einem Schweizer Rechner

[BadenPower]

Hast Du Dir mein Beispiel angesehen und mit Deinem Code verglichen?

Wenn es dann immer noch nicht funktioniert, dann packe einmal Dein Projekt und lade es hier hoch.