Coloque esse codigo no onShow
var
i : integer;
begin
for i := 0 to ComponentCount -1 do
if (Components[i] is TDBEdit) then
TDBEdit(Components[i]).CharCase := ecUpperCase;
end;
falow
2009/3/24 Humberto Oliveira <[email protected]>
> O detalhe que questionei é ao invés de setar UpperCase em todos os
> DBEdits,
> utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava
> fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase.
>
> Mas ele já resolveu, está tudo em casa.
>
> 2009/3/24 Emanuel Coutinho
> <[email protected]<emanuelcoutinho%40yahoo.com.br>
> >
>
> > Concordo contigo, mas o código dele está quase pronto, e não sei quantos
> > componentes ele terá de fazer mudar na mão grande... assim, automatizando
> é
> > mais rápido para resolver... então dei foco a ajudar o erro do código...
> > No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
> > CharCase, quando necessito disso, mas como ele não tinah feito...
> > Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
> > estando em um pagecontrol... caramba... muito trabalho... mas se apagar o
> > errinho no código... voilá... dois palitos!!!
> >
> >
> > Sds,
> > _________________________
> > Emanuel Coutinho
> > Salvador-Ba-Brasil
> >
> > ________________________________
> > De: Humberto Oliveira
> > <[email protected]<holiveira.wordpress%40gmail.com>
> <holiveira.wordpress%40gmail.com>
> > >
> > Para: [email protected]
> > <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br>
>
> > Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
> > Assunto: Re: [delphi-br] maiuscula em todos os dedits
> >
> > É verdade, existe um espaço na palavra "Components" ... Mas na minha
> > opinião,
> > seria melhor o CharCase como o Rodnei explicou acima.
> >
> > 2009/3/24 Emanuel Coutinho <emanuelcoutinho@ yahoo.com. br>
> >
> > > frmFinasa.Componen ts[j] <<-- Tem um espaço em branco no components[j]
> > > Retire-o
> > >
> > >
> > > for j := 0 to frmFinasa.Component Count - 1 do
> > > if (frmFinasa.Componen ts[j] is tdbEdit) then
> > > (frmFinasa.Componen ts[j] as tdbEdit).Text :=
> > > UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
> > >
> > > Sds,
> > > ____________ _________ ____
> > > Emanuel Coutinho
> > > Salvador-Ba- Brasil
> > >
> > > ____________ _________ _________ __
> > > De: felipe govoni <govoni.felipe@ gmail.com <govoni.felipe%
> 40gmail.com>
> > >
> > > Para: delphi...@yahoogrup os.com.br <delphi-br%40yahoog rupos.com. br>
> > > Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
> > > Assunto: [delphi-br] maiuscula em todos os dedits
> > >
> > > bom dia
> > >
> > > algume sabe me dize oq tem de errado nesse codigo:
> > >
> > > for j := 0 to frmFinasa.Component Count - 1 do
> > > if (frmFinasa.Componen ts[j] is tdbEdit) then
> > > (frmFinasa.Componen ts[j] as tdbEdit).Text :=
> > > UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
> > >
> > > ele nao faz nada, e quando tento debuga, no .text da a seguinte
> mensagem:
> > > "expression illegal in evaluator"
> > >
> > > tentei faze um teste com o seguinte codigo e tambem nao fez nada
> > >
> > > for j := 0 to frmFinasa.Component Count - 1 do
> > > if (frmFinasa.Componen ts[j] is tdbEdit) then
> > > (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
> > >
> > > alguem pode me ajuda?
> > >
> > > obrigado
> > >
> > > --
> > > Felipe Govoni
> > > ------------ ---------
> > > GOVONI Sistemas
> > > Fone 8472-8718
> > > www.govoni.com. br
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > > Veja quais são os assuntos do momento no Yahoo! +Buscados
> > > http://br.maisbusca dos.yahoo. com
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > Veja quais são os assuntos do momento no Yahoo! +Buscados
> > http://br.maisbuscados.yahoo.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
[email protected] (GoogleTalk)
[email protected] (MSN)
Blog:
http://tebosoftware.blogspot.com/
"Tente ser uma pessoa de valor, não de sucesso"
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
