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?