关于"复制"的简单问题(送80分)

Question

我按下Button1后想实现 复制我当前选中内容(就想按过Ctrl+C)那样的效果  然后 label1.caption显示刚复制的内容

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btnCtrlC: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    btnCtrlV: TButton;
    procedure btnCtrlCClick(Sender: TObject);
    procedure btnCtrlVClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnCtrlCClick(Sender: TObject);
begin
  windows.SetFocus(self.Edit1.Handle);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);
  keybd_event(Ord('C'),MapVirtualKey(Ord('C'),0),0,0);
  keybd_event(Ord('C'),MapVirtualKey(Ord('C'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0);
end;procedure TForm1.btnCtrlVClick(Sender: TObject);
begin
  windows.SetFocus(self.Edit2.Handle);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);
  keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),0,0);
  keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0);
end;end.

Answer 2

如果你就是想实现Ctrl+C的按键就采用2楼的方法
如果只是想实现内容的拷贝,就是1楼的方法,用剪贴板就可以了Edit1.CopyToClipboard;Edit2.PasteFromClipboard;//读取

Answer 3

clipbrd.clipboard.astext就是剪贴板里的文本内容

Answer 4

我是在我的FORM上有个WebBrowser1 我已经双好内容  然后我想复制 可以用什么最简单的办法呢?

Answer 5

问题要复制的内容不是在edit里 所以我要想ctrl+c那样效果的复制 ,如果可以不用到模拟按键那更好

Answer 6

procedure TForm1.Button14Click(Sender: TObject);
begin
  If(WebBrowser1.QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED or OLECMDF_SUPPORTED) then
      WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam);
  Label1.Caption:= Clipboard.AsText;
end;
结帖接分!!!

Answer 7

不知道你的代码是怎样写的,我给的完全是根据你所说的,选WebBrowser1里的(即网页里的)内容,然后点BUTTON,然后LABEL就显示所选的内容.要不,我发个DEMO给你?你留个EMAIL吧!

Answer 8

如何实现 CTRL+C的功能 但是不要模拟按键 有没有办法 ~~~~~~~~~~~~~~~~~~