bei mehreren threads reagiert form1 nicht

**th_bone**

Hi,

mein testprog soll mehrere threads gleichzeitig abarbeiten und dabei
den zähler im memo ausgeben.. das funktioniert soweit auch -

ABER sobald ich mehr als einen thread starte kann ich
die form bis alle threads abgearbeitet sind nicht mehr
bewegen...

bei einem einzelnen thread funzt es aber ohne Probleme

Danke für die Hilfe

Ralf

hier der code:

zusammenfalten · markieren

Delphi-Quellcode:

			  Tmythread = class(TThread)

    tcount: integer;

    protected

     procedure execute; override;

     procedure display;

  end;

var

  Form1: TForm1;

  mythr: array[0..5] of TMyThread;

  ithread: integer;

implementation

{$R *.dfm}

procedure Tmythread.display;

begin

 form1.Memo1.Lines.Add(inttostr(tcount));

end;

procedure tmythread.Execute;

begin

  tcount:=1;

  repeat

   synchronize(display);

   inc(tcount);

  until tcount>1000;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  for ithread:=0 to 5 do begin

    mythr[ithread]:= tmythread.create(true);

    mythr[ithread].FreeOnTerminate:=true;

    mythr[ithread].resume;

  end;

end;

bei mehreren threads reagiert form1 nicht

bei mehreren threads reagiert form1 nicht

Forumregeln