Einzelnen Beitrag anzeigen

derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#9

AW: Stringgrid mit mausrad scrollen

  Alt 30. Nov 2017, 14:38
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
  Mit Zitat antworten Zitat