13,825
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sisiz 2004-06-23
- 打赏
- 举报
我怎么给份呀。管理里怎么没有给份的界面了
weixing979 2004-06-23
- 打赏
- 举报
F3
weixing979 2004-06-23
- 打赏
- 举报
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == VK_F1)
Button1->Click();
}
Form的KeyPreview 设为true
TShiftState Shift)
{
if (Key == VK_F1)
Button1->Click();
}
Form的KeyPreview 设为true
jishiping 2004-06-23
- 打赏
- 举报
也可以使用TActionList。放一个TActionList到Form上，双击TActionList控件，出来的窗口你按 Insert 键或者在弹出的窗口中点击工具条的第一个按钮，这样就新建了一个Action1，
设定Action1的Caption（就是Button的Caption），指定Action1的ShortCut为F3，Action1的
事件OnExecute指向按钮的OnClick事件，然后再将按钮的Action属性指向Action1就可以了。
设定Action1的Caption（就是Button的Caption），指定Action1的ShortCut为F3，Action1的
事件OnExecute指向按钮的OnClick事件，然后再将按钮的Action属性指向Action1就可以了。
jishiping 2004-06-23
- 打赏
- 举报
有多种方法，改动最小的，就是直接在Form的OnShortCut事件里写代码：
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode==VK_F3) {
Handled = true; Button1Click(NULL);
}
}
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode==VK_F3) {
Handled = true; Button1Click(NULL);
}
}
