GenPanelFields exibe campos mesmo setando propriedade Visible false.

Question

Como deixar invisível utilizando GenPanelFields um campo que consta em mais de uma tab de uma tabela?

Ex: quero deixar invisível o campo XXXXX que consta na segunda tab de um campo de uma tabela, porém quando seto para ficar invisível ele respeita apenas o campo da primeira tab, o da segunda continua visível.

Answer 1

Não existe um jeito simples quando se tem mais de um componente para o mesmo campo. Mas é possível fazer isto percorrendo os campos da página e configurando a visibilidade do componente desejado:

var
  i: Integer;
  pg: TDBPageControl;
  tab: TTabSheet;
begin
  pg := TDBPageControl(BGenPanelFields1.GetField('TAB'));
  tab := pg.Pages[1]; // Obtém a segunda página, talvez conferir o nome da tab também, para se proteger de alterações nos metadados
  for i := 0 to BGenPanelFields1.ControlList.Count - 1 do begin
    if (TControl(BGenPanelFields1.ControlList[i]).ClassName = 'TBDBLookupTxt') and
      (TControl(BGenPanelFields1.ControlList[i]).Parent = tab) then begin
      if (TBDBLookupTxt(BGenPanelFields1.ControlList[i]).Field.FieldName) = 'CAMPO' then begin
        TBDBLookupTxt(BGenPanelFields1.ControlList[i]).Visible := False;
        Exit;
      end;
    end;
  end;
end;

 

Comments

Nestes casos onde o campo está repedido. Se for possível agrupe os campos em um grupo, e de nome único a ele. Assim evitaria o problema.