Question

如何在DELPHI中 自动重复按Button1？

如何实现？还要可以设置时间间隔。。 就是 。每隔多少秒。自动按 BUTTON1。就算程序最小化了。也不影响。

分不多。。希望能得到帮助。谢谢。

Answer 1

【步骤】从选项卡上拖1个label,1个button,1个timer到窗体上，让后分别在button的onclick事件，和timer的timer事件写如下代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
//这里写click执行代码
i := StrToInt(TimeToStr(time)[Length(TimeToStr(time))]);
if (i mod 2) = 1 then
label1.Caption := 'Button1Click执行了奇数次'
else
label1.Caption := 'Button1Click执行了偶数次';
end;
//
这里timer的interval属性使用默认值1000ms，也就是1秒钟执行一次。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Button1Click(sender);//将你想要执行的事件写到这里就行了，你看这里我写的就是button的onclick事件，注意，格式是:
窗体名.事件名(sender);就这样就行了，你可以把我这代码拿去运行下，如果有疑问给我发消息(注明问题)
end;

end.

Answer 2

用timer控件吧