请问: 如何代码控制发生事件? 请大家一定要帮帮忙啊!!

Question

用了一个第三方控件, 有些功能是通过键盘快捷键操作的. 现在想在控件所在的窗体上也实现这些快捷键. 
    比如:  在控件上按 ctrl + F 是实现查找功能. 因为这些功能都是隐含的, 我想在主窗体上添加一个按钮, 在按钮的单击时调用控件的事件.于是就可以实现调用控件的查找功能了 .

Answer 1

加一个Action,设置其热键为ctrl+f即可,不用加button

Answer 2

向该控件模拟发送ctrl+F消息：不知道下面的代码是否正确。
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('F'), MapVirtualKey(ord('F'), 0), 0, 0);
keybd_event(ord('F'), MapVirtualKey(ord('F'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
end;

Answer 3

不行啊,  我是要个dbgrid的发送按键信息. 
keydb_event并没有指定接收事件的接收单位(dbgrid)啊!