2- Se vc checa que Components[i] é TDBEdit, não precisa fazer a comparação
2x
if (Wincontrol is TDBEdit) then
begin
if (Components[i].InheritsFrom(TDBEdit)) and
3- Controles que não forem TDBEdit não serão pintados (exclua TDBCombos e
afins)
if (Wincontrol is TDBEdit) then
4- Nem sempre usar o "with" é bom.
Tente fazer um teste atribuindo antes do ComponentCout e Componentes[] a
linha que está no "with".
with (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as TCustomForm)
do
for i := 0 to ComponentCount - 1 do
begin
5- Observe se apenas os componentes que estão na tal
pgCtrlPrincipal.ActivePage é que estão sendo pintados.
[]'s
Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]
http://enterplug.no-ip.com/sistema_ctrc/
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.