Ir para conteúdo
  • Cadastre-se

dev botao

Inserir texto Memo X Posição Cursor


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 2516 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Olá a todos,

Tenho um Memo onde o usuário escreve mensagens pré-definidas que irão aparecer como informações de uma NFe.

Clicando com o botão direito no Memo, surgi um PopupMenu onde ele pode escolher várias opções (em anexo). Cada opção vai preenchendo valores como <total_icmstot_vbc>, <total_icmstot_vicms>, etc. Ideia sugerida pelo Régys em http://www.projetoacbr.com.br/forum/topic/27516-informações-complementares-nfe/#comment-179950

imagem.JPG

O problema é que eu preciso que esse valores sejam inseridos na posição que o cursor estiver no Memo. Eu usei o código em https://forum.imasters.com.br/topic/233345-inserir-texto-no-memo-onde-o-cursor-do-mouse-estiver-posicionado/

var  pos: Shortint;  str, 
code: string;
begin  
  Code:= '<% response.write left("teste",2) %>';  
  pos:= Memo1.SelStart;  
  str:= Copy(Memo1.Lines.Text,1,Pos);  
  str:= str + Code;  
  str:= str + Copy(Memo1.Lines.Text,Pos+1,Length(Memo1.Lines.Text));  
  Memo1.Clear;  
  Memo1.Lines.Add(str);
end;

Ele funciona até uma determinada quantidade de palavras, depois pára de funcionar.

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

 

Editado por doidopb
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2516 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...