Hi Delphianer.

Ich habe 2 Fenster Form1 und Form2.
In Form2 ist ein Threads der von 0 bis 3000 zählt und die werte in ein Memo schreibt.
Dies funktioniert auch. Aber sobald ich das fenster in Form1 erzeuge und anzeige funktioniert es nicht mehr.

Form2 mit dem Thread

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  ParseThread = class(TThread)
  private
    { Private-Deklarationen }
    i:integer;
    protected
    procedure Execute; override;
   public
    { Public-Deklarationen }

end;

var
  Form2: TForm2;
  tt: ParseThread;

implementation

{$R *.dfm}

procedure ParseThread.Execute;
begin
 while not Terminated do
   begin
     inc(i);

     form2.Memo1.Lines.Add(inttostr(i));

   end;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 tt := ParseThread.Create;
 tt.FreeOnTerminate := true;
end;

end.

Form1 der das Form2 Fenster beliebig oft erzeugen kann in dem der Thread werte abarbeitet.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
    Form2 := TForm2.Create(nil);
    Form2.Show;
end;

Weiss jemand woran das liegen kann das der Thread in Form2 nicht mehr funktioniert sobald die Form erzeugt wird.

Grüsse Zodi

Erstmal musst du dir die Frage gefallen lassen, wieso du von einem Thread ungesichert auf den VCL-Thread zugreifst.

Zusätzlich zu Redeemers Frage, ein weiterer Grund dafür, dass nicht das passiert, was du willst:

Ich gehe mal davon aus, dass Form2 automatisch erzeugt wird. Das ist ja so standard bei Delphi.

Wenn du nun auf der Form1 den Button (mehrfach) drückst, und

markieren

Delphi-Quellcode:

Form2 := TForm2.Create(nil);
    Form2.Show;

ausführst, dann wird eine zweite (dritte? vierte?) Instanz von TForm2 erzeugt und immer unter der globalen Variable Form2 abgelegt. Die automatisch erzeugte Form2 (und alle davor erzeugten) sind dann nicht mehr erreichbar. D.h. alle Threads würden in die gleiche TForm2-Instanz schreiben wollen - nämlich die zuletzt erzeugte. Die anderen liegen dann als Datenmüll irgendwo rum.

Ein zusätzlicher Thread mit ungesichertem Zugriff auf die VCL mag ja gelegentlich mit Glück noch mal gut gehen. Aber wenn mehr als ein Zusatz-Thread in die gleiche Komponente schreiben will, knallt es garantiert.

Zitat von Zodi:

Form1 der das Form2 Fenster beliebig oft erzeugen kann in dem der Thread werte abarbeitet.

(und in welches der erzeugten "Form2" schreibt der Thread dann?) Hat sich erledigt

Ich glaube Du solltest Dir ein paar Grundlagen der (Delphi-)Programmierung erarbeiten.

Gruß
K-H

Ein Thread sollte grundsätzlich nichts mit einem Formular zu tun haben.

Aus einem Formular heraus kann man einen Thread starten, der dann autark arbeitet und keine gemeinsamen Daten mit dem Formular nutzt.
Wenn der Thread fertig ist, kann er dies dem Formular mitteilen und die Ergebnisdaten synchronisiert zurück geben.

Deine beschriebener Ansatz scheint zu unsicher und problematisch zu sein.

Vielleicht beschreibst Du mal Dein grundsätzliches Anliegen und kannst einen Vorschlag für eine taugliche Realisierung kriegen...?

Du musst Synchronize aufrufen um vom Thread auf die VCL-Controls zuzugreifen.

zusammenfalten · markieren

Delphi-Quellcode:

type
  ParseThread = class(TThread)
  private
    { Private-Deklarationen }
    i:integer;
  protected
    procedure DoRefreshMemo;
    procedure Execute; override;
   public
    { Public-Deklarationen }

end;

procedure ParseThread.DoRefreshMemo;
begin
  form2.Memo1.Lines.Add(inttostr(i));
end;

procedure ParseThread.Execute;
begin
 while not Terminated do
   begin
     inc(i);
     Self.Synchronize(DoRefreshMemo);
   end;
end;