如何用DELPHI指令来实现(CTRL+C)复制功能。

Question

如题。

Answer 1

var
  HW,HB:HWND;
begin
  HW := FindWindow(nil,PChar('号信息维护'));
  HB := FindWindowEx(HW,0,PChar('TcxGridDBTableView'),PChar(TV1));
  SendMessage(hb,WM_COPY,0,0);为何没有复制成功。

Answer 2

var
  HW,HB:HWND;
begin
  HW := FindWindow(nil,PChar('号信息维护'));
  HB := FindWindowEx(HW,0,PChar('TcxGridDBTableView'),PChar(TV1));
  SendMessage(HB, WM_SETFOCUS,0,0);
  SendMessage(hb,WM_COPY,0,0);

Answer 3

不好意思，上述的代码是在edit中实现的
var
   HWnd, Hb1, Hb2: Thandle;
   i: Integer;
begin
   HWnd := findwindow(nil, pchar('窗体'));
   Hb1 := FindWindowEx(HWnd, 0, Pchar('TEdit'), PChar('edt1'));
   Hb2 := FindWindowEx(HWnd, 0, Pchar('TEdit'), PChar('edt2'));
   if (Hb1 <> null) and (Hb2 <> null) then
   begin
     SendMessage(Hb1, WM_SETFOCUS,0,0);
     SendMessage(Hb1, WM_COPY, 0, 0);
     SendMessage(Hb2, WM_PASTE, 0, 0);
   end;
end;
对于TcxGridDBTableView，我没有安装这个东东，不好实验，不过应该差不多，先选中再copy

Answer 4

CopyToClipbord   ???