DBMemo dá pra limitar a qtde de carcteres por linha

Delphi

17/03/2004

em um DBmemo dá pra definir q qdo chegar a uma quantidade de caracteres por linha ele mudar de linha para q o usuário não ultrapasse aquela quantidade de caracteres por linha, da pra fazer?


Janete

Janete

Curtidas 0

Respostas

Raphal

Raphal

17/03/2004

procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
If DBMemo1.GetTextLen >= 100
Then DBMemo1.Text := #13;
end;

Tente fazer isso, eu não testei.
Espero ter ajudado.

Rafael


GOSTEI 0
Janete

Janete

17/03/2004

procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char); begin If DBMemo1.GetTextLen >= 100 Then DBMemo1.Text := #13; end; Tente fazer isso, eu não testei. Espero ter ajudado. Rafael


Assim pula de linha mas some a q existia


GOSTEI 0
Joao Batista

Joao Batista

17/03/2004

procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char); begin If DBMemo1.GetTextLen >= 100 Then DBMemo1.Text := #13; end; Tente fazer isso, eu não testei. Espero ter ajudado. Rafael


Assim pula de linha mas some a q existia


a solução para esse caso seria isso:

procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
If DBMemo1.GetTextLen >= 100 Then
Key := #0; // #0 transforma o que for digitado em vazio, ou seja substitui o caracter por vazio
end;

GOSTEI 0
Bruno Leandro

Bruno Leandro

17/03/2004

se ta sumindo é porque precisa pegar o que ja existe armazenado tente desta forma

procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
If DBMemo1.GetTextLen >= 100 Then
DBMemo1.Text := DBMemo1.Text + #13;
end;
GOSTEI 0
Alisson Santos

Alisson Santos

17/03/2004

Janete o erro que está ocorrendo é realmente por não estar salvando as informações que existe na linha
e assim que ele pula a linha ele apaga a mesma.

Faça como o nosso amigo acima mencionou que vai funcionar.
GOSTEI 0
POSTAR