[Помогите!] Помощь.

[masych]

1. Все норм, но когда передвигаю форму, цикл сразу ... весь заканчивается. Что не так?

Цитата: procedure Chikl.Execute; var a:integer; begin try for a:=1 to StrToInt (Form1.Edit1.Text) do begin Form1.memo1.Lines.Add(IntToStr(a)); {sleep (1000)} end; finally terminate; end; end; procedure TForm1.Button1Click(Sender: TObject); var x:Chikl; begin try Button1.Enabled:=false; x:=Chikl.Create(true); x.FreeOnTerminate:=true; x.Priority:=tpNormal; x.Resume; while not x.Terminated do begin sleep(25); application.ProcessMessages; end; finally Button1.Enabled:=true; end; end;

2. Как сделать чтобы цикл по таймеру был из Edit?

[Mebius]

Цитата: Сообщение от masych 1. Все норм, но когда передвигаю форму, цикл сразу ... весь заканчивается. Что не так? 2. Как сделать чтобы цикл по таймеру был из Edit?

1 ты про синхронизацию не слышал? плохо учебник читал! работать из потока с формой без синхронизации нельзя!
2 по таймеру паузу потоку выдавай

3 while not x.Terminated do begin sleep(25);
application.ProcessMessages; это вообще должно писаться в потоке, даже не это, а только цикл!