Colar em um campo memo???
28/12/2004
0
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
Posts
28/12/2004
Gandalf.nho
28/12/2004
Cabelo
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?
28/12/2004
Gandalf.nho
29/12/2004
Cabelo
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?
29/08/2006
Cabelo
estou precisando muito desta solução...
alguém sabe como copiar e colar no TMemo..
agradeço a todos.
29/08/2006
Marco Salles
Sera que tem
Uses Clipbrd ;
procedure TForm1.Button1Click(Sender: TObject); begin memo1.Text:=Clipboard.AsText; end;
09/11/2018
Santos Carvalhais
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;
Clique aqui para fazer login e interagir na Comunidade :)