Refresh einer View (Sichten) auslösen

[himitsu]

Zitat von Perlsau:

Es geht aber gerade um das Post: Das wird beim Ändern des Checkstatus einer TDBCheckBox erst ausgelöst, wenn sich der Datensatzzeiger ändert. Durch reines Klicken auf die Komponente passiert noch gar nix.

Ich dachte das sollte so werden?
- anklichen/umschalten der Chackbox ändert noch nichts
- das Speichern des Datensatzes (Post) aktualisiert dann den View.

[Perlsau]

Zitat von himitsu:

Zitat von Perlsau:

Es geht aber gerade um das Post: Das wird beim Ändern des Checkstatus einer TDBCheckBox erst ausgelöst, wenn sich der Datensatzzeiger ändert. Durch reines Klicken auf die Komponente passiert noch gar nix.

Ich dachte das sollte so werden?
- anklichen/umschalten der Chackbox ändert noch nichts
- das Speichern des Datensatzes (Post) aktualisiert dann den View.

Schon klar, aber "das Speichern des Datensatzes (Post)" wird nicht allein durch das Klicken auf die DBCheckBox ausgelöst. Mit anderen Worten: Das Klicken auf die DBCheckBox ändert lediglich den Wert des Feldes im Dataset, ohne daß ein Post ausgelöst wird. Ich wollte jedoch erreichen, daß bereits ein Klick auf die Checkbox eine Änderung in der Datenbank auslöst, ohne daß der Anwender noch eine weitere Aktion bringen muß. Das habe ich mit der TCheckBox nun erreicht: Die Anzeige der Änderung im DBGrid (View) erfolgt jetzt wie gewünscht sofort. Jetzt kann der Anwender einfach Strg-G drücken, um den Status des Gesehen-Feldes zu ändern, auch wenn der Fokus gerade auf dem DBGrid ist, weil der Anwender darin herumscrollt.

[Perlsau]

Jetzt blieb nur noch der unschöne Effekt, daß sich die Position der vertikalen Scrollbar im DBGrid verändert. Dem konnte ich mit GetScrollPos und SetScrollPos abhelfen. Der Vollständigkeit halber hier der überarbeitete Code:

Delphi-Quellcode:

Procedure TFormMain.Check_GesehenClick(Sender: TObject);
Var
  ScrollPos : Integer;

begin
  IF GL.CheckModus THEN Exit;
  GL.CheckModus := True;
  DatMod.Aset_Datei.Edit;
  DatMod.Aset_Datei.FieldByName('Gesehen').AsBoolean := Check_Gesehen.Checked;
  DatMod.Aset_Datei.Post;
  ScrollPos := GetScrollPos(Handle, SB_VERT);
  DatMod.ViewDateienRefresh;
  SetScrollPos(Handle, SB_VERT, ScrollPos, True);
  GL.CheckModus := False;
  AL_ED_Gesehen.Checked := Check_Gesehen.Checked;
end;

[Der schöne Günther]

Das kann doch nicht sein- So viel Arbeit, nur weil man eigentlich will, dass die Änderungen an der Checkbox sofort übernommen werden?

Kann man im OnDataChange-Event nicht einfach auf myDataSource.DataSet.Modified prüfen und dann irgendwie die Änderungen "schon jetzt" abschicken?