Fórum componente stringgrid #197442

tenta isso, no evento dblclick do stringrid.


procedure TFrmConGrupos.StrGridConGruDblClick(Sender: TObject);
var
row,col : integer;
begin

Row := StrGridConGru.Row;
EditConGrupos.Text := StrGridConGru.Cells[col,row];
Begin
With Dm.QySQL do
begin
Close;
sql.clear;
sql.add(´select * from cliente_gru´);
sql.add(´where cod_gru_cli = ´+EditConGrupos.Text+´ ´);
Open;
end;


===> daqui p baixo estou enviando os dados da linha selecionada do stringgrid para o formulário de cadastro para poder alterar ou excluir...


FrmCadGrupos.EditCodCliGru.text := IntToStr(Dm.QySQL.fieldbyname(´cod_gru_cli´).asinteger);
FrmCadGrupos.EditDescCliGru.text := Dm.QySQL.fieldbyname(´desc_gru_cli´).asString;

====> esse close é para fechar o form de consulta
Close;


obs.: criei duas variáveis : row,col para poder controlar os dados do stringgrid...


espero ter ajudado :)

Jean Carlo
Programador senior
inscria@ig.com.br