Fórum Omitir componentes através do Dbgrid #372954

no Evento OnEnter do dbgrid?

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?

OnColEnter

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;