var
ct : integer;
begin
for ct := 0 to ComponentCount -1 do
if Components[ct] is TWinControl then
case TWinControl(Components[ct]).Tag of
0 : TWinControl(Components[ct]).Visible := true;
1 : TWinControl(Components[ct]).Visible := false;
end;
Em 31/03/06, pcinfowave <[EMAIL PROTECTED]> escreveu:
>
> 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
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
