Fórum DBMemo dá pra limitar a qtde de carcteres por linha #220689
17/03/2004
0
Janete
Curtir tópico
+ 0Posts
17/03/2004
Raphal
begin
If DBMemo1.GetTextLen >= 100
Then DBMemo1.Text := #13;
end;
Tente fazer isso, eu não testei.
Espero ter ajudado.
Rafael
Gostei + 0
17/03/2004
Janete
Assim pula de linha mas some a q existia
Gostei + 0
17/10/2012
Joao Batista
begin
If DBMemo1.GetTextLen >= 100
Then DBMemo1.Text := #13;
end;
Tente fazer isso, eu não testei.
Espero ter ajudado.
Rafael[/quote:c60a5866d4]
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
17/10/2012
Bruno Leandro
procedure SeuForm.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
If DBMemo1.GetTextLen >= 100 Then
DBMemo1.Text := DBMemo1.Text + #13;
end;
Gostei + 0
17/10/2012
Alisson Santos
e assim que ele pula a linha ele apaga a mesma.
Faça como o nosso amigo acima mencionou que vai funcionar.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)