TEdit - Não permitir digitação de espaços

Delphi

22/11/2004

Pessoal,

Gostaria que num TEdit não fosse permitido digitar espaços. É possível? Ou teria que usar um TMaskEdit? Caso tenha que usar, como seria a máscara?

abraços,

Tiago.


Tiagoharris

Tiagoharris

Curtidas 0

Respostas

Marco Salles

Marco Salles

22/11/2004

Seria Isto ???

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



GOSTEI 0
Tiagoharris

Tiagoharris

22/11/2004

Isso mesmo Marco, eu tinha tido essa idéia só que eu não sabia o código da tecla da barra de espaço.

Valeu cara, obrigado!


GOSTEI 0
POSTAR