Drei Fehler fallen mir spontan auf:

1. Mit Execute rufst Du die Methode direkt auf, du musst Start aufrufen, um den Thread zu starten.
2. Dann wird ein Problem auftreten, denn Du greifst vom Thread aus ohne Synchronisation auf die GUI zu. Stichworte: Synchronize, oder TCriticalSection, oder TMUltiReadExclusiveWriteSynchronizer ...
3. btn1Click greif einfach auf das Thread-Objekt zu, obwohl es dank FreeOnTerminate evtl. gar nicht mehr existiert.

könnte so oder ähnlich aussehen ...

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TMyThread = class(TThread)
  Private
    FNum: Integer;
    procedure Execute; override;
    procedure IncNum;
  public
  end;

  TForm1 = class(TForm)
    lbl2: TLabel;
    lbl1: TLabel;
    btn2: TButton;
    btn1: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure CreateMyThread;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
begin
  if lbl2.Caption = 'Eins' then
  begin
    lbl2.Caption := 'Zwei';
  end
  else
  begin
    lbl2.Caption := 'Eins';
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if btn1.Caption = 'Start' then
  begin
    btn1.Caption := 'Stop';
    CreateMyThread;
    MyThread.Start;
  end
  else
  begin
    btn1.Caption := 'Start';
    MyThread.Terminate;
    MyThread := nil;
  end;
end;

procedure TForm1.CreateMyThread;
begin
  if not Assigned(MyThread) then
  begin
    MyThread := TMyThread.Create(true);
    MyThread.FreeOnTerminate := true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateMyThread;
end;

procedure TMyThread.IncNum;
begin
  FNum := StrToInt(Form1.lbl1.Caption);
  Inc(FNum, 1);
  Form1.lbl1.Caption := IntToStr(FNum);
end;

procedure TMyThread.Execute;
begin
  while (not terminated) do
  begin
    Synchronize(IncNum);
    Sleep(800);
  end;
end;

end.

Danke schonmal so weit, hat mir beides in meinem Verständnis davon ein Stück weitergeholfen!

Jetzt hab ich aber noch ein Problem:
Wenn ich es nun, wie von euch angemerkt, umschreibe, dann kennt er die Methode MyThread.Start nicht. Ist dafür noch etwas zu beachten?

Zitat von Nightjacket:

Wenn ich es nun, wie von euch angemerkt, umschreibe, dann kennt er die Methode MyThread.Start nicht. Ist dafür noch etwas zu beachten?

Welche Delphi Version?

Ja danke, wollte grad editieren das ich es herausfand. Bei mir ist es Delphi 7 und da trifft eben Resume zu.
Werd' das mit der Version gleich mal nachholen, für künftige Fragen..

Aber danke nochmals an alle, funktioniert nun wie gewünscht!

Ja, deine Delphi Version (die du ja in deinem Profil nicht angegeben hast).

In neueren Versionen nimmt man TThread.Start
In älteren Versionen nimmt man TThread.Resume

Zitat von Sir Rufo:

Ja, deine Delphi Version (die du ja in deinem Profil nicht angegeben hast).

In neueren Versionen nimmt man TThread.Start
In älteren Versionen nimmt man TThread.Resume

Wie wäre es mit einem einfachen myThread := TMyThread.Create(False); ? Dann muss man sich nicht mit dem (hier natürlich eigentlich gar nicht) bösen Resume herumschlagen. Denn besser ist es doch, diese Methode einfach zu verschweigen.

In älteren Delphi-Versionen gibt es noch keine Start-Methode, da musst Du Resume nehmen.

[edit] *Pfüh* [/edit]

Dann nimm Resume statt Start, oder nimm CreateMyThread aus dem FormCreate heraus und ändere CreateMyThread so daß der Thread direkt losläuft.

markieren

Delphi-Quellcode:

procedure TForm1.CreateMyThread;
begin
  if not Assigned(MyThread) then
  begin
    MyThread := TMyThread.Create(false);
    MyThread.FreeOnTerminate := true;
  end;
end;

Zitat von CCRDude:

[*]Dann wird ein Problem auftreten, denn Du greifst vom Thread aus ohne Synchronisation auf die GUI zu. Stichworte: Synchronize, oder TCriticalSection, oder TMUltiReadExclusiveWriteSynchronizer ...[/LIST]

Eigentlich gibt es fuer diesen Fall nur Sychronize oder das Senden von Windows-Messages an den Haupt-Thread (wobei wichtig ist, dass das Handle, an das man sendet, vom Haupt-Thread erzeugt wurde, Synchronize hat dieses Problem nicht)