TDBGrid, Locate-Suche soll Grid auf Mitte stellen (Zeile)

[MmVisual]

Hallo,

Ich habe eine besondere Anforderung. Ich habe ein DBGrid, das zeigt die Daten und scrollt immer an das Ende wenn ich mit einer Suchen-Eingabe ein Locate mache. Also der richtige Datensatz wird gezeigt, das ist nicht das Problem. Also das Grid zeigt sich auf dem ganzen Bildschirm, und der aktive Datensatz ist der letzte ganz unten.

Das gefällt mir aber nicht, kann ich irgendwie dem Grid bei bringen dass bei einer Suche dann der aktive Datensatz in der Mitte des sichtbaren Bildschirmbereiches ist?
Also z.B. sind 20 Datensätze auf dem Bildschirm sichtbar (Tabelle hat z.B. insgesamt 100). Jetzt mache ich ein Locate auf Datensatz Nr. 40, dann hätte ich gerne dass das TDBGrid mit die Datensätze 30..50 anzeigt und der aktive Datensatz auf 40 zeigt.

Vieleiche hat jemand einen Tipp, nach was für Grid-Eigenschaften ich suchen könne, mir fehlt leider jeder Ansatz.

Vielen Dank für eure Hilfe.

Grüße Markus

[MmVisual]

Ich habs rausgefunden...

Code: Alles auswählen

BM := MyQuery.GetBookmark;
MyQuery.GotoBookmark(BM);
MyQuery.FreeBookmark(BM);

[mse]

Etwas direkter:

Code: Alles auswählen

TDataSet.Resync([rmcenter]);

[MmVisual]

Auf die Idee wäre ich nie gekommen, vielen Dank!

[Nihao]

wie kann ich erreichen, dass der cursor nicht in mitte sondern oben steht? danke.

[Nihao]

kann lazarus nicht markierung im dbGrid auf erste zeile stellen?

[Michl]

Ganz schönes Gewurstel, aber so habe ich das hinbekommen. Keine Ahnung, ob das nicht auch eleganter geht:

Code: Alles auswählen

uses ..., math;
...
type
  TDBGrid = class(DBGrids.TDBGrid)
    function GetBufferCount: integer; override;
  end;
...
function TDBGrid.GetBufferCount: integer;
begin
  Result := inherited GetBufferCount;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  aRecNr: Integer;
begin
  SQLQuery1.Locate('Field1', 'SearchText', []);
  aRecNr := SQLQuery1.RecNo;
  SQLQuery1.RecNo := min(aRecNr + DBGrid1.GetBufferCount div 2, SQLQuery1.RecordCount - 1);
  SQLQuery1.MoveBy(aRecNr - SQLQuery1.RecNo);
end;