StringGrid - programowe "przewijanie" (scroll)

0

Witam

Mam dość obszernego StringGrida do którego próbuje dopisać funkcję wyszukiwania.
Napisałem coś takiego:

procedure TForm1.Button12Click(Sender: TObject);
var
szukany:string;

begin
szukany:=edit8.text;
if j=StringGrid1.ColCount-1 then j:=1;
if i=StringGrid1.RowCount-1 then i:=1;

repeat
  j:=j+1;
   if j=StringGrid1.ColCount-1 then 
         begin
     		j:=1;
	        i:=i+1;
	 end;   

until ((j=StringGrid1.ColCount-1) and (i=StringGrid1.RowCounT-1)) or ((AnsiContainsText(stringgrid1.Cells[j,i],szukany))=true) ;

StringGrid1.Selection := TGridRect(Rect(j,i,j,i)); 

end;
 

Zgodnie z oczekiwaniem podświetla się komórka w której znaleziony zostanie wpisany w edita text.
Jednak jeśli komórka znajduje się już w niewidocznym miejscu, czyli StringGrida trzeba przewinąć w dół pojawia się problem bo ni idzie to z automatu.

Możecie mi podpowiedzieć jak programowo to przewinąć?

Pozdrawiam

0

stringGrid.TopRow;
stringGrid.LeftCol;

0

Dziękuję serdecznie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1