Limitar a qntde de caracteres digitados por linha no TMemo

Question

Como consigo limitar a qntde de caracteres digitados por linha no TMemo

Ex.:
Quero que permitar digitar somente 23 caracteres por linha.

Ficaria assim:
------------------
F�rum DevMedia - Delphi
F�rum DevMedia - Delphi

o que for ser digitado depois do �F�rum DevMedia - Delphi� n�o deixar

Grato
Bruno

F�bio Feltrin · Answer

Altere o tamanho do TMemo para que nele caiba apenas 23 caracteres ja que o espa�o restante vc n�o ira utilizar.Att F�bio Feltrin da Silveira...

Bfbraz · Answer

N�o posso simplesmente alterar o tamanho do Memo pois a qntde de caractares vai variar de Cliente, cada Cliete vai ter uam qtde diferente que podera digitarBruno Rodrigues...

R�mulo Barros · Answer

Deve haver um jeito mais simples. Mas, enquanto vc n�o acha a solu��o, implemente o c�digo abaixo no evento OnKeyPress do seu Memo.

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
Var
   C : Longint;
begin
   With(Memo1)Do
   Begin
      For C := 0 To Lines.Count -1 Do
      Begin
         If(Not(Key In[8,13]))Then
            Begin
               If(Length(Lines[C]) > 23)Then
               Begin
                  MessageDlg(�Limite de caracteres ultapassado !!!�,mtWarning,[mbOk],0);
                  Key := 0;
                  Break;
               End;
         End;
      End;
   End;
end;

Beppe · Answer

R�mulo, n�o existe maneira mais simples do que a sua solu��o, sem restri��es. At� seria poss�vel testar qual linha foi modificada com Memo1.CaretPos.y, e verificar a largura desta linha. Por�m, se for poss�vel Copiar&Colar, da� somente a tua rotina d� jeito. Mas poderia ser proibido o �Ctrl+V�, ent�o testar apenas a linha atual � vi�vel.

R�mulo Barros · Answer

Sim, eu tentei testar apenas a linha atual, mas n�o consegui achar um comando para isso, tipo ( Memo.Lines[Memo.ItemIndex] ) ... ... mas, conforme descrito por voc� anteriormente, Beep, basta implementar o m�todo [b:3855815b75]CaretPos.y[/b:3855815b75] e adequar o c�digo para o sistema.

[color=blue:3855815b75][i:3855815b75][u:3855815b75]Valeu !!![/u:3855815b75][/i:3855815b75][/color:3855815b75]

Antseralves · Answer

Teste o seguinte:No formul�rio onde est� o TMemo fa�a a propriedade [b:f934334362]KeyPreview[/b:f934334362] = [b:f934334362]true[/b:f934334362].No evendo [b:f934334362]OnKeyPress[/b:f934334362] do TMemo codifique:  if Length(Memo1.Lines.Strings[Memo1.CaretPos.Y]) = 33 then    if Key >= �0� then      Key := #0;Boa sorte !AntSer=====...

F�rum Limitar a qntde de caracteres digitados por linha no TMemo #279759