Question

Delphi timer 控件问题!

我想每秒只在窗体上接收一次按键信息,这个在TIMER控件里怎么设置呢？

Answer 1

窗体上放个Timer1，设置Enabled为False。再设置窗体的keyPreview属性为True。然后执行下面代码，就可以每隔1秒读取按键信息：
var
c:Char;
s:string;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
c:=key;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
s:='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s+c;
end;

Answer 2

将TIMER控件的Interval属性设置为1000，其单位为ms，1000ms相当于1秒。
然后你双击TIMER控件,在如下面所示的begin、end中间加入你的语句就OK了。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
你的语句
end;