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
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.
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
Zitat
Baum-Darstellung
