Stringgrid mit mausrad scrollen

Thema durchsuchen

Ansicht

Themen-Optionen

Stringgrid mit mausrad scrollen

Ein Thema von derseitzer · begonnen am 30. Nov 2017 · letzter Beitrag vom 30. Nov 2017

Vorheriger Beitrag

Nächster Beitrag

sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.420 Beiträge

Delphi 12 Athens

AW: Stringgrid mit mausrad scrollen

30. Nov 2017, 13:23

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

markieren

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;

...