componente stringgrid
Tenho um stringgrid carregado com a seguinte situacao:
Coluna1 coluna2
8:00 Joao Maria
8:30 Maria Pereira
9:00 Eduardo
9:30 -
Como eu faco para selecionar a linha que esta 9:30 e puxar
esta hora para um outra tela.
Evandro
Coluna1 coluna2
8:00 Joao Maria
8:30 Maria Pereira
9:00 Eduardo
9:30 -
Como eu faco para selecionar a linha que esta 9:30 e puxar
esta hora para um outra tela.
Evandro
Evandro_araujo
Curtidas 0
Respostas
Inscria
27/11/2003
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
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
GOSTEI 0