Não precisa de programação para isso...
Seleciona todos os Edits que você quer em maiusculo e vai nas propriedades muda
o charcase para ecUpperCase
--- Em ter, 24/3/09, felipe govoni <govoni.fel...@gmail.com> escreveu:
De: felipe govoni <govoni.fel...@gmail.com>
Assunto: [delphi-br] maiuscula em todos os dedits
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 24 de Março de 2009, 11:17
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.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
