GARANTIR DESCONTO

Fórum eliminar a barra de espaço em um edit #167953

05/07/2003

0

Como faço para eliminar a barra de espaços em um edit... não quero que o usuario pressione barra de espaços como faço... obrigado a quem puder ajudar...

Markinhos


Markinhos

Markinhos

Responder

Posts

05/07/2003

Ruysalles

No evento onkeypress coloque o seguinte código:

if key = vk_espace then
key := #0;


Responder

Gostei + 0

06/07/2003

Markinhos

não funcionou!!!


Responder

Gostei + 0

06/07/2003

Rômulo Barros

Utilize o evento OnChange do Edit e faça um procedure para apagar os espaços em branco , caso o usuário digite...

Pronto.... Acabou-se.. Pra que tanto problema...


Responder

Gostei + 0

06/07/2003

Rodolfoprado

vc pode por
if key=vk_space then
key:=´´;

eu axo


Responder

Gostei + 0

06/07/2003

Ruysalles

Foi mal.

O Correto é:

if key = VK_SPACE then
key := #0;

Não existe o ´E´ em space.


Responder

Gostei + 0

06/07/2003

Ruysalles

Foi mal.

O Correto é:

if key = VK_SPACE then
key := #0;

Não existe o ´E´ em space.


Responder

Gostei + 0

07/07/2003

Mauricio Goulart

no evento onkeypress do edit coloque


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [#32]) then
key := 0;
end;


Até +


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar