ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Numerar linhas no memo automaticamente

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gdmneto
Novato
Novato


Registrado: Quinta-Feira, 12 de Novembro de 2009
Mensagens: 13
MensagemEnviada: Qua Mai 04, 2011 9:25 am    Assunto: Numerar linhas no memo automaticamente Responder com Citação
Bom dia!

Como faço para numerar as linhas no campo memo a medida que pressiono a tecla enter, avançando a linha, e, também, como aumento o espaçamento das linhas no campo memo na impressão (QuickReport)?

Desde já agradeço a atenção.

Muito Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
maplin16
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 4 de Mai de 2011
Mensagens: 123
MensagemEnviada: Qui Mai 05, 2011 2:38 pm    Assunto: Responder com Citação
Pra pegar as linhas do TMemo use isso...

Código:
procedure TForm1.SetStatusCaretXY(Sender: TObject);
begin
   StatusBar1.Panels.Items[0].Text :=
     IntToStr( TCustomMemo(Memo1).CaretPos.Y ) + ': ' +
     IntToStr( TCustomMemo(Memo1).CaretPos.X );
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB