关于快捷键的问题!大家都来帮忙啊!

[addywang1126]

我在第一个窗体显示的时候,点键盘的Ctrl+F1键,然后处使第二个窗体显示.
怎么做,用代码说明.

[huzhangyou]

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Shift.Contains(ssCtrl)&& Key ==VK_F1){
Form2 = new TForm2(this);
Form2->Show();
}
}
应该是这个事件
而不是FormKeyUp

[gxd305]

处理窗体的
Keypress事件

[jlu3389]

在窗体上添加一个ActionList控件。
双击并创建一个Action，修改ShortCut属性为Ctrl+F1；
然后添加Action的OnExecute

代码如下:

void __fastcall TForm1::Action1Execute(TObject *Sender)
{
TForm *Form2 = new TForm(this);
Form2->Caption = "新创建的窗体";
Form2->ShowModal();
delete Form2;


}

以上在BCB6上测试通过;

实现的方法很多。我说也只是一种，笨重了一些，不知道，是不是楼主需要的。

[ccrun.com]

#include "Unit2.h"

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
KeyPreview = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Shift.Contains(ssCtrl) && Key == VK_F1) // 如果按了Ctrl + F1键就显示Form2
{
Form2 = new TForm2(this);
Form2->Show();
}
}