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