duplo click no dbgrid 2 (Help me!!!)

22/05/2003

2

olá amigos!!!!
Preciso resolver um probleminha, quero dar um duplo clique numa determinada linha no dbgrid que exibe o resultado de uma consulta e isso me traga o registro correspondente.
Valeu!!!
t+ 8)


Responder

Posts

22/05/2003

Skaarj

Tipo, serve um clique apenas?

É um evento não registrado.. Talvez o DoubleClick tb seja, lá vai..
Meu Dbgrid, está setado em um Query, portanto os dados são provenientes de um filtro..

No OnCreate do form:
DbGrid1.ControlStyle:=DbGrid1.ControlStyle + [csClickEvents];
TForm(DbGrid1).OnClick:=DbGrid1Click;

Declare em PRIVATE DECLARATIONS
procedure DBGrid1Click(Sender: TObject);

Por fim, cria a procedure:

procedure Tform1.dbgrid1Click(Sender: TObject);
var
codigo: integer;
begin
codigo:=dtmproaseQUERY.Qry_ADAPTACAO_DEPENDENCIA.fieldbyname(´CODIGO_ALUNO´).asinteger;// aqui recebe o campo chave da tabela, na query
if dtmproase.ADAPTACAO_DEPENDENCIA.FindKey([codigo]) then
begin // busca pelo campo chave na tabela
{desse ponto em diante carrega os Edit [TEdits e não TDbedits] que se referem ao campo} edtcodigo_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIACODIGO_ALUNO.AsString;
edtano_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIAANO.AsString;
edtnumero_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIANUMERO_ALUNO.AsString;
lblnome_dependencia.Caption:=dtmproase.ADAPTACAO_DEPENDENCIANOME.AsString;
edtcodmateria_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIAMATERIA_CODIGO.AsString;
edtcarga_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIACARGA_HORARIA.AsString;
edtcondicao_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIACONDICAO.AsString;
edtmedia_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIAMEDIA_FINAL.AsString;
edtserie_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIASERIE.AsString;
edtfinal_dependencia.Text:=dtmproase.ADAPTACAO_DEPENDENCIARESULTADO_FINAL.AsString;
end;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira