dbCheckbox und dbGrid mit Abfrage

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1270441)

Also: Das TDBCheckBox brauch kein OnClick-Event. Es benötigt gar nichts, nur die richtigen Eigenschaften.

Erledigt:-D

keine Änderung alles wie vorher:(:(

[Dejan Vu]

Es funktioniert bei mir aber. Dein hier eingestelltes Projekt mit den angepassten 'ValueChecked' und 'ValueUnchecked' funktioniert, sofern der Feldname korrekt ist. 100% getestet, verifiziert.

[blutigerAnfänger]

Anbei mein komplettes fehlerhaftes Projekt mit Datenbank und .exe. Ich habe den Speicherteil entfernt. Ich werde das ganze Projekt noch einmal mit IB und einmal mit Jedi neu zusammenschreiben und mich dann wieder melden. Danke für eure bisherigen Bemühungen.

[mkinzler]

Was geht den dort genau nicht? Auf den ersten Blick scheint es ja zu funktionieren.

Wenn man diverse Unschönheiten übersieht:
-Fester Pfad auf Datenbank
-Datenbankverbindung zur Designtime aktiv!
-Verwendung von with + überflüssigen Code

Delphi-Quellcode:

procedure TForm1.AbfrageClick(Sender: TObject);
  begin
    Query1.SQL.Text := 'Select * from Tabelle;';
    Query1.Open;
  end;

ist kürzer und ohne with;

[Jasocul]

Delphi-Quellcode:

procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  {
  if DBCheckBox1.Checked then
     DBCheckBox1.Caption := DBCheckBox1.ValueChecked
  else
     DBCheckBox1.Caption := DBCheckBox1.ValueUnChecked;
    }

 DBGrid1.Columns[0].ReadOnly := False;

  if DBCheckBox1.Checked  then
    begin
     DBCheckBox1.Checked := False;
    end ;

end;

Es wurde schon ausführlich erklärt, dass die DBCheckBox in dieser Methode nicht gesetzt werden darf.
So, wie der Source jetzt ist, wird die DBCheckBox immer False sein.

Nochmal:
Wenn DBCheckBox.Checked in dieser Methode gesetzt wird, wird die Methode automatisch wieder auf gerufen.

Ergebnis-Prüfung:
Fall 1: Die Box ist nicht gechecked.
- Anwender setzt die Box auf Checked.
- Die Methode wird dadurch aufgerufen.
- Methode setzt die Box auf nicht gechecked und ruft sie ohne Auswirkung nochmal auf.
Ergebnis: Die Box ist nicht gechecked.

Fall 2: Die Box ist gechecked.
- Anwender setzt die Box auf nicht Checked.
- Die Methode wird dadurch aufgerufen.
- Es passiert aber nichts weiter (außer ReadOnly-Einstellung).
Ergebnis: Die Box ist nicht gechecked.

Beide Fälle führen also dazu, dass DBCheckBox.Checked immer False sein wird, sobald der Anwender diese anklickt.
Du kannst die Methode komplett entfernen. Ich sehe auch für das

Delphi-Quellcode:

ReadOnly := false

keine Notwendigkeit.

[Dejan Vu]

Zitat:

Zitat von Dejan Vu (Beitrag 1270441)

... der Code im OnClick der TDBCheckbox-komponente...: Weg damit. ...
Also: Das TDBCheckBox braucht kein OnClick-Event. ...

:wall:

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1270503)

Zitat:

Zitat von Dejan Vu (Beitrag 1270441)

... der Code im OnClick der TDBCheckbox-komponente...: Weg damit. ...
Also: Das TDBCheckBox braucht kein OnClick-Event. ...

:wall:

Das on Click Event ist doch im Objektinspektor ausgeschaltet!!
dann kann es doch im Quelltext stehen bleiben, oder nicht!?:?

[Perlsau]

Wozu?

[Jasocul]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1270512)

[Das on Click Event ist doch im Objektinspektor ausgeschaltet!!
dann kann es doch im Quelltext stehen bleiben, oder nicht!?:?

Sorry, habe ich nicht gesehen. Ich lösche solche Sachen immer gleich aus dem Source. Deswegen bin ich nicht auf die Idee gekommen, dass das im OI entfernt wurde.

Leider habe ich hier kein FB/IB zur Verfügung und kann deswegen nicht weiter testen.

[mkinzler]

http://sourceforge.net/projects/fire...d.zip/download