Stringgrid mit mausrad scrollen

[derseitzer]

Hallo Leute,

Ich habe ein Stringgrid und möchte dieses mit dem Mausrad scollen, was bereits funktioniert.
Das Stringgrid ist relativ groß. Wenn ich nun z.B. in die Mitte des Stringgrids mithilfe der Maus durch linke Maustaste halten und ziehen der Scrollbar (also ohne Mausrad!) gehe dann lande
auch wie gewollt in der Mitte. Wenn ich nun jedoch mit dem Mausrad hoch oder runter scrolle, lande ich wieder ganz oben bei Reihe 0 bzw 1...
Ich möchte natürlich das ich wenn ich scrolle, da weiterscrollen kann, wo ich gerade bin.

Vielen Dank im voraus!

[freimatz]

Hoi,
das ist IMHO bei Object-Pascal / Delphi-Language.
Bitte schreib das wo es reinpasst, ich denke ein Forum mit VCL

[derseitzer]

@freimatz ich bin hier unter "Object/Pascal/Delphi-Language" also genau das was du mir geschrieben hast oder irre ich mich?

[matashen]

Hallo,

wenn du mit dem Mausrad scrollst, dann änderst du die selektierte Zelle oder die selektierte Reihe (Row)

Wenn du den Balken ziehst änderst du die Ansicht innerhalb deines Grids, aber nicht die Position der selektierten Zelle. wenn du anschließen wieder Mausrad scrollst, macht deine Selektion da weite wo sie aufgehört hat und damit springt dein View wieder zurück. Wenn du nach dem ziehen des Balkens eine Zelle markierst, dann macht dein Scrollrad auch dort weiter.

[derseitzer]

Ja so habe ich mir das auch schon gedacht aber ich weiß ehrlich gesagt nicht wie ich nach dem loslassen der Scrollbar die zusehende Zelle fokusiere.
Wenn ich im onmouseup event das hier reinschreibe:

Stringgrid1.Row:=Stringgrid1.TopRow;

passiert leider nichts

[sakura]

Hier mal ein logischer Anfang - alle Fälle und Eventualitäten müsstest Du aber selbst erarbeiten, dazu fehlt mir gerade die Zeit.

Delphi-Quellcode:

procedure TForm3.grd1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if grd1.Selection.Top < grd1.TopRow then
    grd1.Selection := TGridRect(Rect(grd1.Selection.Left, grd1.TopRow, grd1.Selection.Left, grd1.TopRow));;
end;

......

[derseitzer]

perfekt vielen Dank

[sakura]

Zitat von derseitzer:

perfekt vielen Dank

Zitat von sakura:

Hier mal ein logischer Anfang - alle Fälle und Eventualitäten müsstest Du aber selbst erarbeiten

Und auch nur, wenn die fokusierte Zelle über der aktuell angezeigten liegt, nur wenn unterhalb. usw...

......

[derseitzer]

Habe den Code etwas erweitert:

Code:

procedure T_DB_Behaelter_Uebersicht.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  if ((Stringgrid1.Selection.Top < Stringgrid1.TopRow-14) or (Stringgrid1.Selection.Top > Stringgrid1.TopRow+14)) then
    Stringgrid1.Selection := TGridRect(Rect(Stringgrid1.Selection.Left, Stringgrid1.TopRow, Stringgrid1.Selection.Left, Stringgrid1.TopRow));
end;

procedure T_DB_Behaelter_Uebersicht.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  if ((Stringgrid1.Selection.Top < Stringgrid1.TopRow-14) or (Stringgrid1.Selection.Top > Stringgrid1.TopRow+14)) then
    Stringgrid1.Selection := TGridRect(Rect(Stringgrid1.Selection.Left, Stringgrid1.TopRow, Stringgrid1.Selection.Left, Stringgrid1.TopRow));
end;

14 ist die Anzahl der aufeinmal angezeigten Zeilen bzw. Rows. Scheint zu funktionieren
Danke nochmal Sakura

[sakura]

Zitat von derseitzer:

14 ist die Anzahl der aufeinmal angezeigten Zeilen bzw. Rows. Scheint zu funktionieren
Danke nochmal Sakura

Gerne, es gibt übrigens die Eigenschaft VisibleRowCount oder so ähnlich

......