ListView (oä.) & CheckBox

[freez]

Danke erst mal, ich werde es mal in einer freien Minute testen.

Es sieht halt doch deutlich schöner aus, wenn alles sauber beieinander ist, und ich die Checkboxen im Eintrag selbst auswählen kann. Aber das ist geschmackssache.

[akari]

Hallo

Aber das ist geschmackssache

Eher eine Frage der Programmier-Fähigkeit

bis bald
akari

[freez]

Ja, daran scheiterts meist

[akari]

Hallo

das eleganteste ist eine Kombination beider Varianten : Zuerst stellst du die Daten der Einträge wie in Variante 1 dar. Wenn dann ein Eintrag ausgewählt wird, erstellst du wie in Variante 2 eine Checkbox für diesen Eintrag. Wenn vorher ein Eintrag ausgewählt war, mußt du vorher noch die CheckBox des alten Eintrages bestimmen, den Wert der CheckBox speichern und die CheckBox löschen.

bis bald
akari

[Masterof]

akari schrieb:

......

komplizierte Mehtode :
Nennt sich Inplace-Editor. Du verwendest wieder TStringGrid. Dann erstellst du für jeden Eintrag eine CHeckBox im StringGrid

TCheckBox *NewCheckBox = new TCheckBox(Form);
NewCheckBox->Name = x; // Eindeutiger Name, um Control wiederzufinden
NewCheckBox->Parent = StringGrid;

Das komplizierte ist die Positionierung der CheckBoxen. Die mußt du über das Event OnDrawCell des StringGrids machen.
Dort bekommst du einen Bereich für die gerade darzustellende Zelle. Du überprüfts, ob die Zelle eine CheckBox sein soll,
suchst die CheckBox des Eintrages und weist ihr den Zellbereich als Bounds zu.

bis bald
akari

Ich habe jetzt das Problem, wenn ich auf die CheckBox im StringGrid klicke wird kein Hacken gesetzt und auch kein OnKlick-Ereignis ausgelöst.

Und wie kann ich auf die Eigenschaften der CheckBox zugreifen.
Nach dem das Objekt erzeugt wurde.

Gruß Marco

void __fastcall TForm1::StringGrid2DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
	if((ACol == 2)&&(ARow>0)){
		TCheckBox *NewCheckBox = new TCheckBox(Form1);
		NewCheckBox->Parent = StringGrid2;
		NewCheckBox->Checked = true;
		NewCheckBox->OnClick = &CheckBox1Click;
		NewCheckBox->OnMouseDown = &CheckBox1MouseDown;
		NewCheckBox->Top = Rect.Top;
		NewCheckBox->Width = 15;
		}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
	ShowMessage("Test");
}

[Braunstein]

Lass mal die &-Zeichen vor den Eventmethoden weg.

NewCheckBox->OnClick = CheckBox1Click;
NewCheckBox->OnMouseDown = CheckBox1MouseDown;

[Masterof]

Hallo Braunstein,

Das hat leider keinerlei Wirkung gezeigt.

Es wird aber das onMouseDown-Ereigniss ausgelöst.
Es wird aber kein Hacken gesetzt und auch nicht das onClick-Ereigniss ausgelöst.

Gruß Marco

[kpeter]

Hi,

das OnClick-Event greift auch nicht, nimm dafür MouseDown.
Noch was anderes, es ist in jedem Fall besser, die NewCheckBoxen nicht im Ereignis DrawCell zu erstellen.
Bei jedem Zeichnen des Gitters werden neue CheckBoxen erzeugt, ohne die alten zu löschen.

Versuchs mal so:

in *.h-Datei:

TCheckBox *NewCheckBox;
   void __fastcall NewCheckBoxMouseDown(TObject *Sender,
                    TMouseButton Button, TShiftState Shift, int X, int Y);

in *.cpp-Datei:

void __fastcall TForm::FormActivate(TObject *Sender)
{
   for (int i=1; i < StringGrid1->RowCount; i++) {
       NewCheckBox              = new TCheckBox(this);
       NewCheckBox->Name        = "chBox" + IntToStr(i);
       NewCheckBox->Parent      = StringGrid1;
       NewCheckBox->Checked     = true;
       NewCheckBox->Enabled     = true;
       NewCheckBox->OnMouseDown = NewCheckBoxMouseDown;
       NewCheckBox->Caption     = "chBox" + IntToStr(i);
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm::StringGrid1DrawCell(TObject *Sender, int Col,
      int Row, TRect &Rect, TGridDrawState State)
{
   if(Col == 2 && Row > 0 ){   // 3.Spalte, in allen Zeilen ausser 1.
        TCheckBox* chBox;
        for(int i=0; i < ComponentCount; i++) {
           // ist es eine TCheckBox-Komponente ?
           if (Components[i]->ClassNameIs("TCheckBox")) {
              chBox  = (TCheckBox*)Components[i];
              if (chBox->Name == "chBox" + IntToStr(Row)) {
                   chBox->Top     = Rect.Top;
                   chBox->Height  = Rect.Bottom - Rect.Top;
                   chBox->Left    = Rect.Left;
                   chBox->Width   = Rect.Right - Rect.Left;
               }
           }
        }
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm::NewCheckBoxMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   TCheckBox* chBox;
   chBox = static_cast<TCheckBox*>( Sender );
   if (chBox)
      chBox->Checked =! chBox->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm::FormClose(TObject *Sender, TCloseAction &Action)
{
   delete NewCheckBox;  
}
//---------------------------------------------------------------------------

Edit: Wenn du zur Laufzeit die Anzahl der NewCheckBox ändern willst, nimm zur
Verwaltung der NewCheckBox-Kompos ein TList; macht sich sehr gut.

mfg
kpeter

[Masterof]

Hi kpeter,

Danke das Beispiel funktioniert soweit.

Ich weis leider nicht wie du das meinst mit dem TList-Object.

Gruß Marco

[kpeter]

Hi,

das mit dem TList sollte eine Anregung gewesen sein.
Knapp gesagt, speicherst du im TList indiziert Referenzen auf Objekte, in dem Fall
auf deine ComboBoxen.
Du kannst gezielt und schnell auf sie zugreifen.

mfg
kpeter

[Masterof]

Hi,

Das mit der Tlist war eine sehr gute Idee.
Danke noch mal für die Hilfe

Gruß Marco