timer

admin

1. type
   
2.   TMyThread = class(TThread)
   
3.   private
   
4.     FTimer: TTimer;
   
5.   protected
   
6.     procedure Execute; override;
   
7.     procedure TimerEvent(Sender: TObject; Timer: TTimer);
   
8.   public
   
9.     constructor Create;
   
10.     destructor Destroy; override;
    
11.   end;
    
12. 
    
13. var
    
14.   Form1: TForm1;
    
15.   MyThread: TMyThread;

复制代码

1. implementation
   
2. 
   
3. {$R *.dfm}
   
4. 
   
5. constructor TMyThread.Create;
   
6. begin
   
7.   inherited Create(False);
   
8.   FreeOnTerminate := True;
   
9.   FTimer := TTimer.Create(nil);
   
10.   FTimer.OnTimer := TimerEvent;
    
11.   FTimer.Interval := 1000; // 设置间隔时间（例如：1000毫秒）
    
12.   FTimer.Enabled := True;
    
13. end;
    
14. 
    
15. destructor TMyThread.Destroy;
    
16. begin
    
17.   FTimer.Free;
    
18.   inherited;
    
19. end;
    
20. 
    
21. procedure TMyThread.Execute;
    
22. begin
    
23.   while not Terminated do
    
24.   begin
    
25.     Synchronize(
    
26.       procedure
    
27.       begin
    
28.         Form1.Button1.Caption := 'Thread is running...';
    
29.       end
    
30.     );
    
31.     Sleep(100);
    
32.   end;
    
33. end;
    
34. 
    
35. procedure TMyThread.TimerEvent(Sender: TObject; Timer: TTimer);
    
36. begin
    
37.   // 这里放置你想要定期执行的代码
    
38. end;

复制代码

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.   MyThread := TMyThread.Create;
   
4. end;

复制代码