828
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Timer1.Enabled:=True;
intTmp:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
intTmp:=intTmp+1;
if intTmp>=10 then //Timer1.Interval设置为100,停止输入1秒后触发。
begin
//此处写触发处理语句
Timer1.Enabled:=False;
end;
end;