搞了半天都感觉和真正的DAS相去甚远 感觉自己对DAS的理解不是很透彻 所以在实现上有困难所以特地来求助~ 求贴代码和分析

没有现成的代码，但我可以讲解一下DAS
若你按下左/右键一段时间【可设置】，将以更快的速度【可设置】移动，方便移动到墙边

有一个想法 不知是否可行
var
LastKeyDownTime:TDateTime;
//...
proc cbMove(m:Integer); //控制移动 不具体实现
//...
proc Timer3_OnTimer(); //在按下左右键一段时间后 自动移动方块
begin
if Key=RightKey then cbMove(+cbWidth)
else cbMove(-cbWidth);
end;
proc App.OnMessage(Msg:TMessage);//响应信息
var
CurrentTime:TDateTime;
begin
if Msg.Message=WM_KeyDown then begin
if (Msg.wParam=LeftKey) or (Msg.wParam=RightKey) then begin
CurrentTime:=Now();
If (CurrentTime-LastKeyTime)<=持续按下后所需时间 then begin {} Timer3.NeedTime:=重复时间; //设定计时时长
Timer3.Enabled:=True;//启动Timer3 开始计时 到时间时自动移动一
//格
Key:=Msg.wParam;
end;
//...
end;
LastKeyTime:=CurrentTime;
//...
end ;
if Msg.Message=WM_KeyUp then
if Timer3.Enabled=True then Timer3.Enabled:=False;
//...
end;
//...

我想起一个fart的比喻【忘了是不是fart的了
DAS的实质就跟输入字一样，按一下输入一个w，按住到一定时候就会重复wwwwwwwwwwwwww
【跟主题相关但不解决问题。。。

@栦薳 @farteryhr

其实我刚刚发现微软的输入也自带DAS，例如：
Yo→0.5sYoo→0.1sYooooooooooooooooooooooooooooooooo

目前我用的DAS方法是暂停方块下落 任由玩家移动方块 请问这样对么？……