Fórum [color=darkred][color=blue]DBEdit sem espaço na Primeira Pos #166640
26/06/2003
0
[b:e4809d083e]Como faço que usuario digite a primeiro Letra do NOME do cliente no DBEdit sem espaço ou seja na primeira posição do DBEdit ..........
[color=red:e4809d083e]......................Comclusão........... [/color:e4809d083e]
na hora que o usuario for cadastra novo cliente e antes de digita a primeira letra do nome ele da Espaço , ai quando gerar o relatorio dos clientes não sai na ordem alfabetica...........como faço p/ obrigar o a não da espaço???......agradeço..........Jairo-GO [/b:e4809d083e]
[color=red:e4809d083e]......................Comclusão........... [/color:e4809d083e]
na hora que o usuario for cadastra novo cliente e antes de digita a primeira letra do nome ele da Espaço , ai quando gerar o relatorio dos clientes não sai na ordem alfabetica...........como faço p/ obrigar o a não da espaço???......agradeço..........Jairo-GO [/b:e4809d083e]
Jairo-go
Curtir tópico
+ 0
Responder
Posts
26/06/2003
Marconi
Coloque no form a Propriedade KeyPreview para true.
No evento OnKeyPress do dbEdit teste se o tamanho do texto da dbEdit é igual a zero, se for não aceite o caracter em branco retornando key:=´´;
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if length(dbedit1.text)<1 then begin
if key:=´ ´ then key:=´´;
end;
end;
Marconi
No evento OnKeyPress do dbEdit teste se o tamanho do texto da dbEdit é igual a zero, se for não aceite o caracter em branco retornando key:=´´;
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if length(dbedit1.text)<1 then begin
if key:=´ ´ then key:=´´;
end;
end;
Marconi
Responder
Gostei + 0
26/06/2003
Thaisandrade
Jairo, você pode retirar os espaços a esquerda do texto.
no OnExit:
Edit1.Text:= TrimLeft(Edit1.Text);
no OnExit:
Edit1.Text:= TrimLeft(Edit1.Text);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)