Omitir componentes através do Dbgrid

Delphi

30/07/2009

Olá,

preciso omitir alguns componentes de um formulário ao ´passear´ pelas células de um Dbgrid utilizando as teclas de seta. Consigo fazer isso por meio do evento OnCellClick do Dbgrid, mas não através das setas do teclado. Alguém poderia me ajudar nisso?

Grata.


Sgrandini

Sgrandini

Curtidas 0

Respostas

Osocram

Osocram

30/07/2009

no Evento OnEnter do dbgrid?

Olá, preciso omitir alguns componentes de um formulário ao ´passear´ pelas células de um Dbgrid utilizando as teclas de seta. Consigo fazer isso por meio do evento OnCellClick do Dbgrid, mas não através das setas do teclado. Alguém poderia me ajudar nisso? Grata.



GOSTEI 0
Rafa.spimenta

Rafa.spimenta

30/07/2009

Se voce estiver utilizando um DataSource(que esta conectado a um ClientDataSet) para conectar ao seu DBGrid, utilize o evento AfterScroll do ClientDataSet.

E seu caso?

Olá, preciso omitir alguns componentes de um formulário ao ´passear´ pelas células de um Dbgrid utilizando as teclas de seta. Consigo fazer isso por meio do evento OnCellClick do Dbgrid, mas não através das setas do teclado. Alguém poderia me ajudar nisso? Grata.



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

30/07/2009

OnColEnter


GOSTEI 0
Sgrandini

Sgrandini

30/07/2009

Utilizo o banco Access 2007 e Delphi 2005. O DataSource está ligado diretamente a um TTable. Já tentei através do evento OnEnter, mas não deu certo. O Dbgrid apresenta apenas duas colunas e ambas são selecionadas, por isso não utilizei o evento OnColEnter. O procedimento colocado no evento OnCellClick funciona perfeitamente. Só não dá certo quando uso as setas do teclado. Segue abaixo o código:

procedure TFrmCadastro.DbgrdClientesCellClick(Column: TColumn);
begin
if (Dados.TbClientes.Fields.FieldByName(´pessoa´).Value = ´F´) then
begin
LblTippes.Caption := ´CPF´;
DbEdtcpf.Enabled := True;
DbEdtcpf.Visible := True;
DbEdtcnpj.Enabled := False;
DbEdtcnpj.Visible := False;
LblNas.Visible := True;
DbEdtnas.Visible := True;
LblDoc.Visible := True;
DbEdtdoc.Visible := True;
LblNum.Visible := True;
DbEdtnum.Visible := True;
LblOrg.Visible := True;
DbEdtorg.Visible := True;
LblData.Visible := True;
DbEdtdat.Visible := True;
LblEnd1.Caption := ´Endereço Residencial´;
LblEnd2.Caption := ´Endereço Comercial´;
end;

if (Dados.TbClientes.Fields.FieldByName(´pessoa´).Value = ´J´) then
begin
LblTippes.Caption := ´CNPJ´;
DbEdtcpf.Enabled := False;
DbEdtcpf.Visible := False;
DbEdtcnpj.Enabled := True;
DbEdtcnpj.Visible := True;
LblNas.Visible := False;
DbEdtnas.Visible := False;
LblDoc.Visible := False;
DbEdtdoc.Visible := False;
LblNum.Visible := False;
DbEdtnum.Visible := False;
LblOrg.Visible := False;
DbEdtorg.Visible := False;
LblData.Visible := False;
DbEdtdat.Visible := False;
LblEnd1.Caption := ´Endereço 1´;
LblEnd2.Caption := ´Endereço 2´;
end;
end;


GOSTEI 0
POSTAR