StringGrid durchsuchen, Zeile markieren und in Sichtbereich

[Ykcim]

Hallo Zusammen,

wie kann ich eine markierte Zeile in einem StringGrid, die ich zuvor nach einem Wert gesucht und selektiert habe in den Sichtbereich scrolen?

Delphi-Quellcode:

var i : integer;
    myRect: TGridRect;
begin
  for i:=0 to Artikel.rowCount -1 do
  if Artikel.Cells[0,i]=Kriterium.Text then
    begin
        Artikel.SetFocus;
        myRect.Left := 0;
        myRect.Top := i;
        myRect.Right := 4;
        myRect.Bottom := i;
        Artikel.Selection := myRect;
    end;
end;

Danke
Ykcim

[Ykcim]

Habe gerade doch noch etwas gefunden. Damit funktioniert es...

Stringgrid1.TopRow:=StringGrid1.Selection.Top; Auf die richtigen Suchworte kommt es an....

In diesem Sinne

Ykcim