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

发布网友 发布时间：2024-10-23 06:48

我来回答

共3个回答

热心网友 时间：2024-10-23 11:14

界面上的设置：
把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;

热心网友 时间：2024-10-23 11:12

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

热心网友 时间：2024-10-23 11:15

在界面设计的时候。先把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;