Como limitar número de caracteres em um VISOR ?

Delphi

11/10/2009

Uso o StaticText e queria limitar o número de caracteres.. ex: 10 caracteres!




Vlw


Annubiss

Annubiss

Curtidas 0

Respostas

Adilsond

Adilsond

11/10/2009

  StaticText1.Caption := Copy(StringOrigem,1,10);



GOSTEI 0
Annubiss

Annubiss

11/10/2009

Vlw cara... Mas onde eu coloco esse evento?


Da form?
Do Visor? (oO)




Vlww!


GOSTEI 0
Adilsond

Adilsond

11/10/2009

Voce esta utilizando um StaticText e o mesmo esta sendo preenchido com + de 10 caracteres ? não é isto ? então coloque o código onde voce esta preenchendo o mesmo. O código pega o valor que voce quer passar pra ele e limita-o em 10 caracteres.


GOSTEI 0
Annubiss

Annubiss

11/10/2009

Sim, eu tinha colocado o evento dentro do Visor...

Mas ao executar ocorre um erro!


To fazendo algo errado?
É no evento do Visor (StaticText) msm?



Agradeço!


GOSTEI 0
Adilsond

Adilsond

11/10/2009

Poderias descrever o evento e seu código ?


GOSTEI 0
Annubiss

Annubiss

11/10/2009

Sim..

Mas qual evento? O do Visor?
Pq o Visor eu não criei evento... Tentei colocar oq vc me falou, mas deu erro!

Tinha ficado assim: Não sei se fiz besteira

EVENTO VISOR
   Visor.Caption := Copy(StringOrigem,1,10);



Gostaria de saber se tem que colocar dentro de um evento do Visor, se sim, qual evento?



Ja tentei até colocar no evento OnKeyPress do Form (oO), rsrsrsrs


GOSTEI 0
Adilsond

Adilsond

11/10/2009

Agora entendi o voce quer ..... Voce esta fazendo a calculadora....... Imaginei que o visor não tinha nada a ver com a mesma, pois este é um novo post.... :(
Em sua calculadora voce colocou em StaticText e quem for utiliza-la não vai digitar o número e sim clicar nos botões ???? Então voce pode fazer no evento dos botões.......

  if Length(Visor.Caption) = 10 then
     ShowMessage(´Tamanho máximo alcançado.´)
  else
     Visor.Caption := seu código;


Outra coisa....Veja o link [url]http://imasters.uol.com.br/artigo/12340/delphi/montando_uma_calculadora_no_delphi_-_parte_1/[/url] e link [url]http://imasters.uol.com.br/artigo/12432[/url]


GOSTEI 0
Annubiss

Annubiss

11/10/2009

A minha calculadora funciona pelo teclado..

Ja criei o evento no OnKeyPress..
Eu quero continuar digitando pelo teclado..

Mas queria limitar apenas números de caracters a serem digitados!
EX: No máximo 10 caracteres!



Vlw


GOSTEI 0
Adilsond

Adilsond

11/10/2009

então no evento onKeyPress coloque o código.

  if Length(Visor.Caption) = 10 then
     begin
       ShowMessage(´Tamanho máximo alcançado.´);
       Key := #0;
     end;



GOSTEI 0
Annubiss

Annubiss

11/10/2009

Show cara... Valeu msm..

Me ajudou muito!

Agradeço ^^





Uma coisa estranha é que, por exemplo:
Eu digito os 10 números, ai quando eu tento usar minha tecla BACKSPACE para deletar um caracter não funciona. Sendo que funciona se eu digitar 8 caracteres (ex)...

Quando chega no tamanho limite a tecla backspace para de funcionar!
Mas a CE e C funciona normal!


-.-´




Mas isso é o de menos, o importante msm vc ja me ajudou!


Grato!


GOSTEI 0
Annubiss

Annubiss

11/10/2009

Fica ruim pq se eu digitar 10 números não posso fazer mais nenhuma ação!
Por exemplo, eu digito 10 caracteres e quero apagar 1 não posso, diz sempre que atingiu o numero maximo!

Pois diz que ja atigi o limite de caracteres!


GOSTEI 0
Annubiss

Annubiss

11/10/2009

RESOLVI...


OBRIGADO!


GOSTEI 0
POSTAR