Delphi 7 TDBGrid Scrollbar

[A.Griffin]

Hat Alles wunderbar geklappt! Vielen Dank für die Lösung.

[A.Griffin]

Mir ist gerade aufgefallen, dass die vertikale Position wunderbar gespeichert wird, aber leider wird beim Verändern des Datensatzes immer noch die Scrollbar horizontal nach ganz links gesetzt. Das stört jetzt immer noch wenn man einen sehr "breiten" Datensatz offen hat und alles wegrutscht.

[nahpets]

Naja, dann die Routine halt noch ein bisserl (ungetestet) anpassen:

Delphi-Quellcode:

procedure TForm1.DatenInTabelleUebernehmen(MyData : TTable);
var
   SavePlace: TBookmark;
   SaveField: TField; 
begin
  MyData.DisableControls;
  { Positionsmarke abrufen, damit wir zum selben Datensatz zurückkehren können }
  SavePlace := MyData.GetBookmark;
  { Focussiertes Feld merken }
  SaveField := DBGrid.SelectedField;
  try
    { Daten einfügen }
    MyData.Append;
    // Felder mit Inhalt belegen
    MyData.Post;
    { Zurück zu Positionsmarke wechseln. }
    MyData.GotoBookmark(SavePlace);
    { Zurück zu fokussierten Feld }
    DBGrid.SelectedField := SaveField;
  finally
    { Positionsmarke freigeben }
    FreeBookmark(SavePlace);
  end;
  MyData.EnableControls;
end;

Damit sollte der Fokus zumindest wieder in dem Feld sein, in dem er vor der Aktuallisierung war. Es wird aber nicht zwingend die exakte Optik vom Zustand vor der Aktuallisierung wieder hergestellt sein.

Ansonsten schau Dir mal die Methode ScrollBy an.

[A.Griffin]

Der Fehler mit dem horizontalen Scrollen lag an dgRowSelect := True. Mit der Einstellung wird die horizontale Scrollbar bei jeder Interaktion nach ganz links versetzt. z.B. wenn man vertikal scrollt oder wenn man in die DBGrid klickt.