Lazarus TDBGrid Scrol funktion

[manfred_h]

An alle die hier im Kaffeesatz lesen mussten, Sorry nochmal, war über das Wochenende nicht am Laptop.

@Sir Rufo: Das ist es, habe mich versucht im letzten Post zu Entschuldigen....

Zitat:

Ich kann nur im Nebel stochern und vermuten, dass es sich hier um ein "Master-Detail" Konstrukt handelt.
Das Master-DataSet holt die Daten für das Grid (nur die relevanten Felder für die Grid-Anzeige) und das Detail-DataSet lädt den gesamten Datensatz (alle Felder).

Bewegt man sich nun im Master von einem Datensatz zum anderen, dann wird auch das Detail-Dataset aktualisiert.

Diese Bewegung im Master soll nun auf ein Minimum reduziert werden, bzw. nur dann erfolgen, wenn im Grid eine Zeile explizit ausgewählt wird.

Bei einem TDBGrid löst allerdings die Verwendung des Mausrads auch ein Bewegen des Datensatz aus und damit ein Aktualisieren des Detail-Dataset und erzeugt somit den angesprochenen Traffic.

Die TKDBGrid Komponente wird vermutlich wie schon von Perlsau vorgeschlagen eine ~Fetsch all Funktion plus der Möglichkeit das beim Scrolling der Datensatz-Zeiger nicht bewegt wird..
Dieses verhalten hätte ich gerne mit dem standard DGGrid erledigt.

[BadenPower]

Zitat von manfred_h:

...
beim Scrolling der Datensatz-Zeiger nicht bewegt wird..
Dieses verhalten hätte ich gerne mit dem standard DGGrid erledigt.

Damit der Datensatzzeiger beim Scrollen nicht automatisch bewegt wird müßtest Du nur die Procedure WMVScroll überschreiben.

[manfred_h]

Zitat von BadenPower:

Damit der Datensatzzeiger beim Scrollen nicht automatisch bewegt wird müßtest Du nur die Procedure WMVScroll überschreiben.

Das hört sich interessant an, werde mich mal ein wenig schlau machen. Danke schon mal für den Tipp.

[manfred_h]

Danke Euch allen für die Ideen und nochmals Sorry für die angestiftete Verwirrung.
Habe es momentan so wie auch schon von Perlsau angesprochen umgesetzt.
Ein separates Dataset und dann im DBrid ein ClickEvent:

Delphi-Quellcode:

procedure Tfrm_test.main_dbgridCellClick(Column: TColumn);
begin
     DM.ApplyFilter(dm_test.tbl_test,'((ID = ''' + dm_test.tbl_test_list.Dataset.FieldByName('ID').AsString + ''') )','');
end;

Dies geht nun wirklich schenller und war auch einfach umgesetzt.
Shalom
Manfred