RES: [delphi-br] TAG

Veja se isso pode te ajudar? for i.. if (frmSeuFormulario.Components[i] is TComboBox) then (para ver o tipo) if NOT (frmProjetos.components[i].Name='cbouf') THEN ( para ver o nome) Tcombobox(frmProjetos.Components[i]).ItemIndex:=-1; veja se invez de NAME

RES: [delphi-br] TAG

To sem o Delphi aqui, mas acho que poderia ser algo mais ou menos assim: Procedure configuraTela; Var I: integer; Begin For i := 0 to ControlCount - 1 do Begin Controls[i].Visible := (Control[i].Tag = 0) or ((TipoEmpresa = 'Matriz') and (Control[i].Tag = 1)) or ((TipoEmpresa =