给分
解决方案 »
- 哪位大虾知道翻书效果是怎么实现的????
- 如何获得ini文件里的一个小节的所有关键字名称....
- 非常感谢Corn1(玉米)给我的ACM控件,请玉米来接分
- 能否只用一个函数捕捉所有异常!!!
- 倾囊了~~~~~关于进程的捕获,我不知道这个程序到底是怎么了,麻烦大家看看
- 线程模式的选择?
- 用什么软件做安装程序?
- 谁有 Pascal 里对有理数四则运算的程序? 实在太老, 我找不到了也想不出怎么写了, 谢谢, 100 分
- 如何将字符转换成ascii
- 谁给我介绍点关于存储过程的网上资料?
- 请看帖子http://expert.csdn.net/Expert/topic/2696/2696160.xml?temp=.3554041
- 将SQL server中的数据以access格式导出(并加密),怎么实现
增加一个菜单项(主菜单和右键菜单都行),设置Click事件为Button1.Click,然后设置ShortCut属性为F2
Shift: TShiftState);
begin
if (Key = VK_F11) then
Button1Click(self);
end;必要时打开 TFORM 的 keypreview
begin
//事件
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F2) then
BitBtn1Click(self);end;
2.键入代码:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key = VK_F2) Then Button1Click(self);
end;
3.键入代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Beep;
//What do you want to do?
end;