Localizar palavaras em um Dbgrid com Find Dialog
Preciso localizar palavras dentro de um DbGrid. Estou usando o Componente FindDialog, porém já observei que tenho que por um código dentro do evento OnFind Deste Componente. Alguém tem idéia de como é?
Agradeço que souber.....
Agradeço que souber.....
Marcos
Curtidas 0
Respostas
Lfernandos
28/02/2003
Bom naum eh uma resposta ´completa´, mas jah eh um bom começo.
procedure TForm1.Button1Click(Sender: TObject);
begin
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
if not(Table1.Locate(´LAST_NAME´,FindDialog1.FindText, [loCaseInsensitive, loPartialKey])) then
ShowMessage(´Sobrenome não encontrado´);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
if not(Table1.Locate(´LAST_NAME´,FindDialog1.FindText, [loCaseInsensitive, loPartialKey])) then
ShowMessage(´Sobrenome não encontrado´);
end;
GOSTEI 0