Question

delphi中怎么写才能在Tedit中输入一个时间然后每隔这段时间执行

现在有一个TEdit，一个Timer，一个CheckBox。
我要实现的功能可能对于您来说很简单，但对于我来说。。

在Tedit.text中输入相应时间，比如20。勾上CheckBox

实现功能：
相应程序每隔20分钟按一次A键，即
PostMessage (Ghwnd, WM_KEYDOWN, $41, 0);
PostMessage (Ghwnd, WM_KEYUP, $41, 0);
同理，如果我填入的是40，那就每隔40分钟按一次。请问这一段，组合起来应该怎么写？谢谢各位，这是我全部的分了。。别嫌少

Answer 1

直接timer1.Interval:=strtoint(tedit.text)*60;...

Answer 2

在界面设计的时候。先把Timer的Interval属性设置为0；然后在CheckBox的Click事件写代码：
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
timer1.Interval:=strtoint(edit1.Text)*60000 else
if checkbox1.Checked=false then
timer1.Interval:=0;
end;

然后在timer的Timer事件写：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//写你要实现的代码就可以了！
end;

Answer 3

界面上的设置：
把Timer的Interval属性设置为0；enable属性设置为false；
然后在CheckBox的Click事件写代码：
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
timer1.Interval:=strtointdef(edit1.Text, 20)*60000;
timer1.Enable := True;
end else
timer1.Enable := false;
end;

然后在timer的Timer事件写：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage (Ghwnd, WM_KEYDOWN, $41, 0);
PostMessage (Ghwnd, WM_KEYUP, $41, 0);
end;