Zeile in DBGrid markieren

[Angel4585]

Hallo,

wie kann ich die aktuelle Zeile über welcher sich der Mauscursor befindet im DBGrid selebtieren?

Ich habs jetzt schon so probiert:

Delphi-Quellcode:

procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  with DBGridTest do
    DataSource.DataSet.RecNo:=MouseCoord(x,y).Y;
end;

Delphi-Quellcode:

procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  with DBGridTest do
    SelectedIndex:=MouseCoord(x,y).Y;
end;

aber beides bringt nicht den gewünschten Effekt,

ich möchte, dass die aktuelle Zeile über der sich der CUrsor befindet markiert wird und wenn ich an den unteren bzw. den oberen Rand des Grids gehe, das dann nach unten bzw. nach oben gescrollt wird.

Hat jemand schonmal sowas gemacht oder weis jemand wie das geht?

Danke schonmal

:angel:

[Angel4585]

OK, also markieren kann ich die Zeilen so:

Delphi-Quellcode:

procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
lr,lc : Integer;
begin
with TStringGrid(DBGridTest) do
  try
    MouseToCell(X,Y,lc,lr);
    if (lr > 0)and(lr<RowCount) then
      begin
      Row:=lr;
      end;
  finally
    end;
end;

Das Problem was ich jetzt noch habe:

1.Ich muss mit dem Datensatz auf die selektiere Zeile springen, da ich das ja nur visuell markiert habe, ohne das sich das DBGrid "bewegt"
2.Ich muss nach oben und untern scrollen können, wenn ich an die entsprechenden Enden komme.

Hat jemand ne Idee?