Differences

This shows you the differences between two versions of the page.

--- delphithread [2024/07/20 17:34] – jwan
+++ delphithread [2025/10/10 10:15] (current) – external edit 127.0.0.1
@@ Line 1: / Line 1: @@
-Note:
+Note: need to read more about using TThread.Synchronize or TThread.Queue
-  need to read more about using TThread.Synchronize or TThread.Queue
 <code>
@@ Line 46: / Line 45: @@
 begin
   TMyThread.Create(False);
 end;
@@ Line 55: / Line 53: @@
 end.
 </code>
@@ Line 61: / Line 58: @@
 Define a flag in the thread class:
-type
+<code>
-  TMyThread = class(TThread)
+  type TMyThread = class(TThread)
-  private
+     private
-    FStop: Boolean;
+        FStop: Boolean;
-  protected
+     protected
-    procedure Execute; override;
+        procedure Execute; override;
-  public
+     public
-    procedure Stop;
+        procedure Stop;
   end;
+</code>
 Implement the Execute method to check the flag:
+<code>
 procedure TMyThread.Execute;
 begin
-  while not Terminated and not FStop do
+  while not Terminated and not FStop do begin
-  begin
+    // codes here //
-    // Your task code here
-    Sleep(100); // Simulate work
   end;
 end;
+</code>
 Implement the Stop method to set the flag:
+<code>
 procedure TMyThread.Stop;
 begin
   FStop := True;
 end;
+</code>
 Create and stop the thread from the main form:
+<code>
 var
   MyThread: TMyThread;
@@ Line 105: / Line 106: @@
   end;
 end;
+</code>
 In this example:
@@ Line 113: / Line 114: @@
 The main form creates the thread with Button1Click and stops it with Button2Click.
 This approach ensures that the thread can exit gracefully when the Stop method is called.
+Another Solution using Timer Event to do some background task:
+<code>
+unit BackgroundThread;
+interface
+uses Classes, SysUtils;
+type
+  TBackgroundProcessThread = class(TThread)
+  protected
+    procedure Execute; override;
+  end;
+implementation
+procedure TBackgroundProcessThread.Execute;
+begin
+  while not Terminated do begin
+    // Place your CPU-intensive process here
+    Sleep(10000); // Simulate a 10-second interval
+  end;
+end;
+end.
+</code>
+<code>
+uses BackgroundThread;
+procedure TForm1.Timer1Timer(Sender: TObject);
+var
+  BackgroundThread: TBackgroundProcessThread;
+begin
+  BackgroundThread := TBackgroundProcessThread.Create(True);
+  BackgroundThread.FreeOnTerminate := True;
+  BackgroundThread.Start;
+end;
+</code>