连续按键事件的烦恼！！！

xiajinanhello 2003-08-20 12:55:26

我有一按键事件
当我按着此键一段时间后松开，只见我的那事件还在不停的执行，过一会才会
停下来
这一现象应如何解决它，主要怎么引起的？
谢谢各位！

...全文

17 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiajinanhello 2003-08-20

打赏
举报

不要意思，错了。应该是
当我按键不松开时，消息队列中不是有很多过KeyDown消息吗？

xiajinanhello 2003-08-20

打赏
举报

不是的
当我按键不松开时，消息队列中不是有很多过Keyup消息吗？

xiajinanhello 2003-08-20

打赏
举报

不是的
当我按键不松开时，消息队列中不是有很多过Keyup事件吗？

madyak 2003-08-20

打赏
举报

如果控制了,只执行一次,哪来的多余KeyDown事件?是不是要把正在执行KeyDown撤销?

xiajinanhello 2003-08-20

打赏
举报

这样不行，看怎样让Keyup事件立即响应
清掉消息队列中多余的KeyDown事件

madyak 2003-08-20

打赏
举报

上面那段能保证你的事件,每次按键只能执行一次,想执行第二次必需松开,再按下才能执行,不知能否达到你的要求!

xiajinanhello 2003-08-20

打赏
举报

不行啊，TForm1.Edit1KeyUp发生在所有TForm1.Edit1KeyDown执行完了
才执行啊

cch78 2003-08-20

打赏
举报

Keyup事件触发停止事件

madyak 2003-08-20

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i: integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
begin
Edit1.OnKeyDown := nil;
inc(i);
Label1.Caption := IntToStr(i);
end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then

Edit1.OnKeyDown := Edit1KeyDown;
end;
end.

xiajinanhello 2003-08-20