valeu pela ajuda e agora eu to conseguindo usando o insert
Em 1 de abril de 2010 08:22, Josimar Zimermann josim...@yahoo.com.brescreveu:
Olá Leonardo!
Se o cursor do Mouse estiver posicionado na posição onde deseja inserir
o texto, basta fazer:
Memo.SelText := Meu Texto;
Se você estiver trabalhando com Drag'n Drop (o que eu imagino que você
está tentando fazer), faça o seguinte no evento DragOver do MEMO:
procedure MemoDragOver(Sender, Source: TObject; X, Y: Integer; State:
TDragState; var Accept: Boolean);
begin
Accept := true;
Memo.SelStart := LOWORD(SendMessage(Memo.Handle, EM_CHARFROMPOS, 0,
MakeLParam(X, Y)));
Memo.SetFocus;
end;
E no Evento DragDrop do Memo é só passar o texto:
procedure MemoDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TControl(Source).EndDrag(true);
Memo.SelText := Meu Texto;
end;
Espero ter ajudado. Se isto não responde, procure ser mais específico no
seu questionamento, para que possamos ajudá-lo!
Falou!
Em 31/3/2010 08:36, Leonardo Baldino escreveu:
Alguem sabe como eu faço para inserir uma nova linha no memo em tempo de
execução, porem inserindo um texto em uma determinada posição da linha.
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
