ITPub博客

首页 > Linux操作系统 > Linux操作系统 > delphi自定义快捷键

delphi自定义快捷键

原创 Linux操作系统 作者:daivyny 时间:2008-02-25 13:47:00 0 删除 编辑
procedure Tmis1f.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((shift=[ssALT])and(key=$4E) then...//Alt+N
if ((shift=[ssCtrl])and(key=$4E) then...//Ctrl+N
if ((shift=[ssShift])and(key=$4E) then...//Shift+N

end[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/74753/viewspace-999942/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2013-08-01

  • 博文量
    37
  • 访问量
    182254