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 = 'Filial') and (Control[i].Tag = 2))
End;
End;
Acho que a rotina acima deve funcionar.
No active do form não é uma boa, pois esse evento ocorre várias vezes (quando
troca de tela por exemplo), tenta colocar no onCreate.
Abraço
--
José Henrique (Zote)
-----Mensagem original-----
De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de pcinfowave
Enviada em: sexta-feira, 31 de março de 2006 21:17
Para: [email protected]
Assunto: [delphi-br] TAG
Ola
qro usar a propriedade TAG p/ separar MATRIZ e FILIAIS em um sistema,
entao o componente que tiver a TAG 1, so sera visivel p matriz e os
comp c/ TAG 2 serão vistos pelas filias, já os q tiverem TAG 0 serao
visiveis a todos (matriz e filial).
Como fzer uma rotina generica p tratar isso (p/ on active do form, por
exemplo).
Se alguem puder ajudar, agradeço
[]s
Paulo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Received: (qmail 95066 invoked by uid 0); 31 Mar 2006 21:18:20 -0300
Received: from 66.94.237.55 by poseidon.bludata.com.br (envelope-from <[EMAIL
PROTECTED]>, uid 0) with qmail-scanner-1.25
(clamdscan: 0.85/974. spamassassin: 3.0.2.
Clear:RC:0(66.94.237.55):SA:0(-1.5/5.0):.
Processed in 5.313505 secs); 01 Apr 2006 00:18:20 -0000
X-Qmail-Scanner-Mail-From: [EMAIL PROTECTED] via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.55):SA:0(-1.5/5.0):. Processed in
5.313505 secs)
Received: from unknown (HELO n26.bullet.scd.yahoo.com) (66.94.237.55)
by poseidon.bludata.com.br with SMTP; 31 Mar 2006 21:18:14 -0300
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
DomainKey-Signature: a=a-sha1; q=s; c=fws; s=tel; d=hoogrupos.com.br;
b=EkXniIfNZVCm9Xu47vxsCx2ouQiBY9AY3sLQqw30tMDt29w77+3KlKTSwt1N7tZ847uMnj18bffPJvsAENCEjXB9P1ZD5UEJN2IT/5of4MeXECPcnubic7rVQmNDtQ;
Received: from [66.218.66.59] by n26.bullet.scd.yahoo.com with NNFMP; 01 Apr
2006 00:18:01 -0000
Received: from [66.218.66.35] by t8.bullet.scd.yahoo.com with NNFMP; 01 Apr
2006 00:18:00 -0000
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: [email protected]
Received: (qmail 63903 invoked from network); 1 Apr 2006 00:17:59 -0000
Received: from unknown (66.218.66.217)
by m29.grp.scd.yahoo.com with QMQP; 1 Apr 2006 00:17:59 -0000
Received: from unknown (HELO n2a.bullet.scd.yahoo.com) (66.94.237.36)
by mta2.grp.scd.yahoo.com with SMTP; 1 Apr 2006 00:17:59 -0000
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
Received: from [66.218.69.4] by n2.bullet.scd.yahoo.com with NNFMP; 01 Apr 2006
00:17:24 -0000
Received: from [66.218.66.64] by t4.bullet.scd.yahoo.com with NNFMP; 01 Apr
2006 00:17:24 -0000
To: [email protected]
Message-ID: <[EMAIL PROTECTED]>
User-Agent: eGroups-EW/0.82
X-Mailer: Yahoo Groups Message Poster
X-Originating-IP: 66.94.237.36
X-eGroups-Msg-Info: 1:12:0:0
X-Yahoo-Post-IP: 201.4.196.49
From: "pcinfowave" <[EMAIL PROTECTED]>
X-Yahoo-Profile: pcinfowave
Sender: [email protected]
MIME-Version: 1.0
Mailing-List: list [email protected]; contact [EMAIL PROTECTED]
Delivered-To: mailing list [email protected]
List-Id: <delphi-br.yahoogrupos.com.br>
Precedence: bulk
List-Unsubscribe: <mailto:[EMAIL PROTECTED]>
Date: Sat, 01 Apr 2006 00:17:23 -0000
Subject: [delphi-br] TAG
Reply-To: [email protected]
Content-Type: text/plain; charset=O-8859-1
Content-Transfer-Encoding: quoted-printable
X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on
poseidon.bludata.com.br
X-Spam-Level:
X-Spam-Status: No, score=.7 required=0 tests=L,BAYES_00,
RCVD_IN_BL_SPAMCOP_NET autolearn= version=0.2
Ola
qro usar a propriedade TAG p/ separar MATRIZ e FILIAIS em um sistema,
entao o componente que tiver a TAG 1, so sera visivel p matriz e os
comp c/ TAG 2 serão vistos pelas filias, já os q tiverem TAG 0 serao
visiveis a todos (matriz e filial).
Como fzer uma rotina generica p tratar isso (p/ on active do form, por
exemplo).
Se alguem puder ajudar, agradeço
[]s
Paulo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
