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:

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;