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]


Jairo-go

Jairo-go

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


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);


Responder

Gostei + 0

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

Aceitar