Thema: Delphi 2x Thread

Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: 2x Thread

  Alt 6. Jul 2005, 19:30
ein Beispiel:
Delphi-Quellcode:
type
  TYourThread1 = class(TThread)
  protected
    procedure Execute; override;
  end;
  TYourThread2 = class(TThread)
  protected
    procedure Execute; override;
  end;
[...]
procedure TYourThread1.Execute;
begin
  DoSomeThing1
end;

procedure TYourThread2.Execute;
begin
  DoSomeThing2
end;
[...]
TYourThread1.Create(False);
TYourThread2.Create(False);
damit werden 2 Threads gestartet die etwas gleichzeitig machen können und der Hauptthread läuft weiterhin.

Zu deinem Beispiel - die Caption der Labels ändern passt das allerdings nicht. Denn wenn du die Labels aus dem hautpprogramm (HauptThread) änderst solltest du dies mit dem Hauptthread synchronisieren damit es nicht zu fehlern kommt und somit wären die Threads schon wieder überflüssig.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat