DBGrid und Scrollrad

[steppo]

Hallo zusammen,

Ich visualisiere Daten in einem DBGrid. Beim befüllen des DBgrid wird ein Datensatz selektiert. Die selektion ist blau hinterlegt und der Pfeil links ist gepunktet.

Bewege ich nun das Scrollrad der Maus, so wird die farbliche Markierung zwar zu einem anderen Datensatz verschoben, jedoch bleibt der zuerst aktivierte Datensatz aktiviert(durch gepunkteten Pfeil ausgewählt).

Wie bringe ich das nun in einklang?

Also entweder das Verschieben der Markierung deaktivieren, oder durch verschieben der Markierung andren Datensatz aktivieren?

Gruß Steppo

[burn]

Hallo,

schau dir mal diese Komponente von Torry an.
Müsste eigentlich genau das machen was du willst.

mfg burn

[steppo]

Also gibt es für die Standardkomponente keine Möglichkeit!

Danke für die Antwort, werde die von dir vorgeschlagene Komponente mal testen.

Gruß Steppo

[Leuselator]

[EDIT]
nimm die Lösung aus dem im nexten Beitrag genannten Thread - ist wesentlich eleganter als eigenes Grid abzuleiten...
[/EDIT]

Grid ableiten:

Delphi-Quellcode:

interface
  TLsDbGrid = class(TDBGrid)
  private
   protected
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  published
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
  end;

implementation

procedure TLsDbGrid.CMMouseWheel(var Message: TCMMouseWheel);
begin
//  Message.Result:=1;
  inherited;
end;

procedure TLsDbGrid.WMMouseWheel(var Message: TWMMouseWheel);
begin
//  Message.Result:=1;
  inherited;
end;
end.

im ObjectInspector dblClick auf Ereigniss MouseWheelDown bzw. MouseWheelUP und :

Delphi-Quellcode:

procedure TForm1.DbGridMouseWheelDown(    Sender  : TObject; 
                                          Shift   : TShiftState; 
                                          MousePos: TPoint;
                                      var Handled : Boolean);
begin
  if (Sender is TLsDbGrid) then begin
    with TLsDbGrid(Sender).DataSource.DataSet do begin
      if not EOF then Next;
    end;
    Handled := True;
  end;
end;

procedure TForm1.DbGridMouseWheelUp(    Sender  : TObject; 
                                          Shift   : TShiftState; 
                                          MousePos: TPoint;
                                      var Handled : Boolean);
begin
  if (Sender is TLsDbGrid) then begin
    with TLsDbGrid(Sender).DataSource.DataSet do begin
      if not BOF then PRIOR;
    end;
    Handled := True;
  end;
end;

[omata]

Zitat von steppo:

Also gibt es für die Standardkomponente keine Möglichkeit!

Wer sagt den soetwas? hier

Gruss
Thorsten

[steppo]

Recht herzlichen Dank für eure Hilfe.

Gruß Steppo