Engraçado, eu tb sugeri para o Felipe algo parecido, só que minhas respostas na
lista estão demorando séculos para chegar; êêê... sei não viu...
________________________________
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°
________________________________
De: "rodinei_amo...@hotmail.com" <rodinei_amo...@hotmail.com>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 12:09:18
Assunto: Re: [delphi-br] maiuscula em todos os dedits
Bom, talvez eu tenha entendido errado o que vc quer, mas o componente TDBEdit
contém uma propriedade CharCase, que vc poderá deixa-la apontada para
ecUpperCase e tudo ficará em maiúsculas.
Espero ter ajudado...
Abs
Rodinei Amorim
Programador Delphi
(11) 8208-9503
rodinei_amorim@ hotmail.com
From: felipe govoni
Sent: Tuesday, March 24, 2009 11:17 AM
To: delphi...@yahoogrup os.com.br
Subject: [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
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]
