Text não asusme valor quando sobra apenas 1 registro

[Gafanhoto]

É o seguinte . . . Quando clico em algum registro do DBGRID, um campo TEXT abaixo assume o valor daquele campo. Está abaixo o código:

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
   link.Text := DataModule2.ADOQuery1.FieldValues['titulo'];
end;

Estou usando um text com evento OnChange que filtra o DBGRID.

procedure TForm2.contemChange(Sender: TObject);
begin

begin
  if contem.Text <> '' then begin
  chave.Text := '';
  DataModule2.ADOQuery1.Active := False;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('select titulo, link, conteudo from boletins_conteudo where titulo like "%'+contem.Text+'%" and idCategoria<>9 and idCategoria<>10 and idCategoria<>11');
  DataModule2.ADOQuery1.Active := true;
  end
  else
  begin
  DataModule2.ADOQuery1.Active := False;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('select titulo, link, conteudo from boletins_conteudo order by titulo');
  DataModule2.ADOQuery1.Active := true;
  end;
end;
end;

Mas, quando dou uma filtrada no DBGRID e sobra apenas 1 registro, quando eu clico no registro que sobrou o text de nome LINK não assume o valor do título.

O que faço?

Editado Abril 25, 2008 por Micheus
Adicionada a tag [CODE] para melhor visualização do código. Lembre-se de utilizá-la. ;-)

[K!ko]

Olá Gafanhoto!

Dexa ver se eu entendi... você ta afim de mostrar num campo o registro selecionado num grid certo?

Com certeza este grid está linkado em algum componente que se refira a uma tabela, ou seja, uma ADOQuery, por exemplo.

O que você pode fazer o seguinte:

Usar um DBEdit (TDBEdit) linkado no mesmo componente que esta sendo usado no grid para trazer os registros. A partir daí basta atribuir o campo, do qual você quer mostrar os registros, ao DBEdit. Com isto, ao "andar" no grid, consequentemente serão mostrados os registros no DBEdit.

por exexmplo... você possui um componente que se refere a tabela Clientes, uma ADOQuery, por exexmplo, o grid esta linkado a este componente e exibe os campos Nome, Codigo e Fone. Para mostrar o Campo Nome, por exemplo, no DBEdit, basta linka-lo ao mesmo componente que o grid está linkado e atribuir o campo nome a ele. Ao "Andar" no grid, os registros referentes ao campo nome aparecerão no DBEdit.

Espero ter ajudado.

Abraço :D

Editado Abril 24, 2008 por K!ko

[Gafanhoto]

O fato é que não é ao "andar" no DBGrid, e sim ao CLICAR no registro...

Fazendo isso, o TEXT assume o valor do campo.

Funciona perfeitamente quando tem 2 ou ais registros.

Mas quando tem um, nada feito...

[K!ko]

O fato é que não é ao "andar" no DBGrid, e sim ao CLICAR no registro...

O fato de você estar "andando" ou clicando no grid daria na mesma, de qualquer forma você estária selecionando um registro específico na sua query.

Fazendo isso, o TEXT assume o valor do campo.

esste TEXT que você se refere é oque exatamente? que componente?

Funciona perfeitamente quando tem 2 ou mais registros.

Mas quando tem um, nada feito...

você chegou a testar da forma que sugeri?

abraço

[Micheus]

Mas, quando dou uma filtrada no DBGRID e sobra apenas 1 registro, quando eu clico no registro que sobrou o text de nome LINK não assume o valor do título.

Gafanhoto, você está não está usando o meio mais apropriado, porque ele depende de um click para funcionar.

Se você quer que a cada movimentação no seu dataset ligado ao DBGrid (quando você move a linha selecionada no DBGrid, você está mudando a seleção corrente no dataset), então você deve usar o componente TDataSource que está conectando o TDBGrid ao TDataset e o evento a ser utilizado é OnDataChange.

Como você trabalha com datamodule, você terá que adicionar um componente TDataSource no seu Form2 e ligar a propriedade Dataset ao dataset usado no seu DBGrid (ADOQuery1). Depois, você implementa o evento OnDataChange assim:

procedure TForm2.DSPerfilDataChange(Sender: TObject; Field: TField);
begin
   link.Text := DataModule2.ADOQuery1.FieldValues['titulo'];
end;

Abraços