Ajuda evento em celula do DBGRID
Boa tarde, gostaria de uma ajuda para efetuar um evento em um dado especifico.
Por exemplo eu executo uma pesquisa de alunos cujo nome é João... Dai aparecerão diversos João, quando o usuário clica-se na linha desse aluno independente da coluna... fizesse uma pesquisa do endereço desse aluno.
O código que fiz é este
procedure TFormConsultaAlunos.DBGrid1CellClick(Column: TColumn);
var
consulta:string;
begin
consulta:=DBGrid1.Columns.Items[1].Field.AsString;
with ZQueryBuscaAlunosEndereco do
begin
if active then close;
SQL[2]:=WHERE Tb_Alunos_Nome like %+ consulta + %;
Open;
end;
end;
Está funcionando mas errado.. para funcionar o usuário precisar clicar 2 vez na linha do aluno... em colunas diferentes.
Por exemplo eu executo uma pesquisa de alunos cujo nome é João... Dai aparecerão diversos João, quando o usuário clica-se na linha desse aluno independente da coluna... fizesse uma pesquisa do endereço desse aluno.
O código que fiz é este
procedure TFormConsultaAlunos.DBGrid1CellClick(Column: TColumn);
var
consulta:string;
begin
consulta:=DBGrid1.Columns.Items[1].Field.AsString;
with ZQueryBuscaAlunosEndereco do
begin
if active then close;
SQL[2]:=WHERE Tb_Alunos_Nome like %+ consulta + %;
Open;
end;
end;
Está funcionando mas errado.. para funcionar o usuário precisar clicar 2 vez na linha do aluno... em colunas diferentes.
João Neto
Curtidas 0
Respostas
Jeovanne Berger
25/11/2011
tenta usar este comando no evento OnDrawColumnCell
GOSTEI 0
João Neto
25/11/2011
Boa tarde colando evento nesse procedure parece que da certo, o problema são minhas linhas, quando clico em alguma celula a resposta é em um clique, porém tem horas que mostra dados errados...
GOSTEI 0