发新帖回复

javaee

普通会员

225648 帖子	346 回复	360 积分

[杂七杂八] 依次按下几个键响应事件

楼主

发表于 2017-06-23 05:24:57 | 查看: 168 | 回复: 2

：

例如实现：在form上依次按下t e s t，四个键，然后form响应事件

var
  Keys: string;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key >= $41) and (Key <= $5A) then
  begin
    Keys := Keys + chr(Key);
    if Keys = 'TEST' then
    begin
      Keys := '';
      ShowMessage('Test');
    end;
  end;
end;

相关帖子

上一篇：SQL SERVER 中的 object_id()函数 下一篇：Delphi中TResourceStream流使用

smartuil

普通会员

0 帖子	323 回复	336 积分

沙发

发表于 2022-05-04 18:44:46

还是很厉害的

ll95613

普通会员

0 帖子	302 回复	310 积分

板凳

发表于 2024-04-27 09:06:11

百因必有果你的报应就是我

返回列表

您需要登录后才可以回帖登录 | 立即注册

请登录后发表回复