Série da semana: Buscas semânticas com Elasticsearch

Veja mais

Colar em um campo memo???

28/12/2004

Colegas..

Como faço para copiar um texto do Word, e colar num componente memo no delphi?

Obs : ctrl + c e ctrl + v, botão diretito ou barra de ferramentas não funcionam..

Agradeço a atenção de todos..


Posts

28/12/2004

Gandalf.nho

Tente usar o método LoadFromClipboard, pode ser que funcione.


Responder Citar

28/12/2004

Cabelo

Nunca usei este método, e não sei como funciona, mas ao que me parece ele deve copiar um texto inteiro certo??

o problema é que o usuário deverá selecionar um trecho de texto e copiar, com o botão direito ou pelo ctrl + c, e depois colar no campo memo..

como devo usar este método, no evento onkeypress, quando a tecla for ctrl + c, chamo este método e colo o que estiver na área de transferência?


Responder Citar

28/12/2004

Gandalf.nho

Pode colocar tb um botão para pôr o código, não esqueça de verificar se o conteúdo do Clipboard é texto, para evitar erros. Dê uma olhada no help do Delphi sobre TClipboard


Responder Citar

29/12/2004

Cabelo

Acho que já achei o erro..

o problema é que estou compilando .CLX, e acredito que não tenha como pegar as teclas ctrl + c..

se estivererrado, vc poderia me passar como faço isso?


Responder Citar

30/12/2004

Cabelo

sobe.. :cry:


Responder Citar

29/08/2006

Cabelo

Pessoal...

estou precisando muito desta solução...

alguém sabe como copiar e colar no TMemo..

agradeço a todos.


Responder Citar

29/08/2006

Marco Salles

esse clx nun ten nada pô.... :lol:

Sera que tem

Uses Clipbrd ;

procedure TForm1.Button1Click(Sender: TObject);
begin
 memo1.Text:=Clipboard.AsText;
end;



Responder Citar
Eu faço isso assim:

procedure TFTroca_Nome.mOriginalKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i : Integer;
begin
// Verificar se foi teclado Control + V ou Control + v
if ((Shift = [ssCtrl]) and (Key = 86)) or ((Shift = [ssCtrl]) and (Key = 118)) then
begin
// Variável v_lista do tipo TStringList
v_lista.Clear;
v_Lista.Text := Clipboard.AsText;

//Limpa o TMemo
mOriginal.Lines.Clear;

//Percorre a lista de Strings da variável v_lista e adiciona linha a linha no TMemo
for i := 0 to v_lista.Count-1 do
mOriginal.Lines.Add(v_lista[i]);

end;
end;
Responder Citar