Emulando Copy ´n Paste

15/12/2005

0

Alguém sabe como posso emular o copy ´n paste no teclado (CTRL+C e CTRL+V) em tempo de execução.
Não queria trabalhar com TClipBoard e gostaria de utilizar o próprio RWindows para isso.

Desde já agradeço


Paulocesar1301

Paulocesar1301

Responder

Posts

15/12/2005

Adriano Santos

Alguém sabe como posso emular o copy ´n paste no teclado (CTRL+C e CTRL+V) em tempo de execução. Não queria trabalhar com TClipBoard e gostaria de utilizar o próprio RWindows para isso. Desde já agradeço



Vê se isso ajuda:

[color=red:d4e8c6f1b9]Copia[/color:d4e8c6f1b9]
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Mantém pressionada CTRL }
  edit1.setfocus;
  edit1.SelectAll;
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
  keybd_event(67 {Tecla C}, 0, 0, 0);
  { Libera (solta) CTRL }
  keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;



[color=red:d4e8c6f1b9]Cola[/color:d4e8c6f1b9]
procedure TForm1.Button2Click(Sender: TObject);
begin
  { Mantém pressionada CTRL }
  edit2.SetFocus;
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
  keybd_event(86 {Tecla V}, 0, 0, 0);
  { Libera (solta) CTRL }
  keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;



Responder

15/12/2005

Paulocesar1301

Brigadíssimo....
Funcionou blz


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar