Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Внизвопрос про потоки и модальные формы Найти похожие ветки
← →
Starkom (2002-04-18 09:34) [0]есть простенький код:
var
Form1: TForm1;
Thread:SecThread;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Thread:=SecThread.Create(false);
Thread.FreeOnTerminate:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Thread.Suspend;
end;
...
procedure SecThread.Execute;
begin
Form2:=TForm3.Create(Form1);
Form2.Caption:="Thread";
Form2.ShowModal;
Form2.Free;
end;
Фактически кода больше нет. Так вот, при Thread.Suspend; приложение капитально повисает! Объясните, плиз, что делать!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c