向一个窗体发送Ctrl+C这个键盘消息，怎么写？

Question

如题

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift)and(Key=67) then
  ShowMessage('Ctrl+C');
end;

Answer 2

最好用hotkey控件吧procedure TForm1.File1Click(Sender: TObject);begin
  // Assign hotkey to the menu's File "New" item. 
  New1.ShortCut := HotKey1.HotKey;  
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  // Default to "Ctrl + A"
  HotKey1.Modifiers := [hkCtrl];
  // Don't allow shift or alt
  HotKey1.InvalidKeys := [hcShift, hcAlt];
end;