arço de 2009 19:23:20
Assunto: Res: [delphi-br] maiuscula em todos os dedits
Nada melhor do que várias cabeças pensando!!!
Sds,
_
Emanuel Coutinho
Salvador-Ba- Brasil
_ _ __
De: Thales (Shubacca) - Tebo Software
Para: delphi...@yahoogrup os.
ecUpperCase
>
> --- Em ter, 24/3/09, felipe govoni
> >
> escreveu:
>
>
> De: felipe govoni >
> 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
>
>
gspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°
De: felipe govoni
Para: delphi-br@yahoogrupos.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 di
:02:01
Assunto: Re: [delphi-br] maiuscula em todos os dedits
emanuel
realmente o charcase facilito e muito, mas na verdade meu codigo nao estava
errado
eu apenas copiei errado, pois eu estava compilando certo, mas na hora ela
nao
limpava os dbedit.
eu copiei a ideia de uma dica pra limpa edit e so
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 escreveu:
De: felipe govoni
Assunto: [delphi-br] maiuscula em todos os dedits
Para: delphi-br
oogrupos.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
: [delphi-br] maiuscula em todos os dedits
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
> O detalhe que questionei é ao invés
... voilá... dois palitos!!!
> >
> >
> > Sds,
> > _
> > Emanuel Coutinho
> > Salvador-Ba-Brasil
> >
> >
> > De: Humberto Oliveira
> >
>
> > >
> > Para: delphi-br@yahoogr
ois palitos!!!
>
>
> Sds,
> _
> Emanuel Coutinho
> Salvador-Ba-Brasil
>
>
> De: Humberto Oliveira
>
> >
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
> Assunto: Re: [delph
ois palitos!!!
>
>
> Sds,
> _
> Emanuel Coutinho
> Salvador-Ba-Brasil
>
>
> De: Humberto Oliveira
>
> >
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
> Assunto: Re: [delph
,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: Humberto Oliveira
Para: delphi-br@yahoogrupos.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"
e: felipe govoni > 40gmail.com>>
> > Para: delphi-br@yahoogrupos.com.br
> > 40yahoogrupos.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
> >
> &g
> De: felipe govoni >
> Para: delphi-br@yahoogrupos.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:
>
Por que vc não muda a propriedade CharCase dos dbedit para ecUpperCase?
2009/3/24 felipe govoni
> bom dia
>
> algume sabe me dize oq tem de errado nesse codigo:
>
> for j := 0 to frmFinasa.ComponentCount - 1 do
> if (frmFinasa.Components[j] is tdbEdit) then
> (frmFinasa.Components[j] as tdbEd
Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: felipe govoni
Para: delphi-br@yahoogrupos.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
From: felipe govoni
Sent: Tuesday, March 24, 2009 11:17 AM
To: delphi-br@yahoogrupos.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.ComponentCount - 1 do
if (frmFinasa.Components[j] is tdbEdit
bom dia
algume sabe me dize oq tem de errado nesse codigo:
for j := 0 to frmFinasa.ComponentCount - 1 do
if (frmFinasa.Components[j] is tdbEdit) then
(frmFinasa.Components[j] as tdbEdit).Text :=
UpperCase((frmFinasa.Components[j] as TdbEdit).Text);
ele nao faz nada, e quando tento
17 matches
Mail list logo
