Colar em um campo memo???

Delphi

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..


Cabelo

Cabelo

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

28/12/2004

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


GOSTEI 0
Cabelo

Cabelo

28/12/2004

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?


GOSTEI 0
Gandalf.nho

Gandalf.nho

28/12/2004

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


GOSTEI 0
Cabelo

Cabelo

28/12/2004

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?


GOSTEI 0
Cabelo

Cabelo

28/12/2004

sobe.. :cry:


GOSTEI 0
Cabelo

Cabelo

28/12/2004

Pessoal...

estou precisando muito desta solução...

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

agradeço a todos.


GOSTEI 0
Marco Salles

Marco Salles

28/12/2004

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

Sera que tem

Uses Clipbrd ;

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



GOSTEI 0
Santos Carvalhais

Santos Carvalhais

28/12/2004

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;
GOSTEI 0
POSTAR