eliminar a barra de espaço em um edit
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
Curtidas 0
Respostas
Ruysalles
05/07/2003
No evento onkeypress coloque o seguinte código:
if key = vk_espace then
key := #0;
if key = vk_espace then
key := #0;
GOSTEI 0
Markinhos
05/07/2003
não funcionou!!!
GOSTEI 0
Rômulo Barros
05/07/2003
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...
Pronto.... Acabou-se.. Pra que tanto problema...
GOSTEI 0
Rodolfoprado
05/07/2003
vc pode por
if key=vk_space then
key:=´´;
eu axo
if key=vk_space then
key:=´´;
eu axo
GOSTEI 0
Ruysalles
05/07/2003
Foi mal.
O Correto é:
if key = VK_SPACE then
key := #0;
Não existe o ´E´ em space.
O Correto é:
if key = VK_SPACE then
key := #0;
Não existe o ´E´ em space.
GOSTEI 0
Ruysalles
05/07/2003
Foi mal.
O Correto é:
if key = VK_SPACE then
key := #0;
Não existe o ´E´ em space.
O Correto é:
if key = VK_SPACE then
key := #0;
Não existe o ´E´ em space.
GOSTEI 0
Mauricio Goulart
05/07/2003
no evento onkeypress do edit coloque
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [#32]) then
key := 0;
end;
Até +
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [#32]) then
key := 0;
end;
Até +
GOSTEI 0