Recent

Author Topic: [Resolvido] - stringgrid localizar  (Read 3640 times)

FKROBERT

  • New Member
  • *
  • Posts: 18
    • http://fkrobert.bl.ee/
[Resolvido] - stringgrid localizar
« on: May 03, 2014, 09:11:39 am »
como localizar no stringbgrid????
« Last Edit: June 23, 2015, 11:51:30 pm by FKROBERT »
"Feliz é aquele que transfere o que sabe e aprende o que ensina" Cora Coralina

-

site pessoal -  http://fkrobert.bl.ee/
:)

FKROBERT

  • New Member
  • *
  • Posts: 18
    • http://fkrobert.bl.ee/
Re: stringgrid localizar
« Reply #1 on: May 04, 2014, 03:35:33 am »
pesquisando consegui desenvolver

Code: [Select]
procedure TForm1.Button1Click(Sender: TObject);

var
  Selecao: TGridRect;
x,y:integer;

begin
For X:=0 to stringgrid1.rowcount-1 do
  if edit1.text = StringGrid1.Cells[6,x ] then
  begin
  Selecao.Left:= 6; // coluna inicial
  Selecao.Right:= 6; // coluna final
  Selecao.Top:= x; // linha inicial
  Selecao.Bottom:= x; // linha final
  StringGrid1.Selection:= Selecao;      end;
  end;   
« Last Edit: June 23, 2015, 11:51:44 pm by FKROBERT »
"Feliz é aquele que transfere o que sabe e aprende o que ensina" Cora Coralina

-

site pessoal -  http://fkrobert.bl.ee/
:)

 

TinyPortal © 2005-2018