|
#1
|
|||
|
|||
потоки 2
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TNewThread = class(TThread) private { Private declarations } protected procedure Execute; override; end; var Form1: TForm1; implementation {$R *.dfm} procedure TNewThread.Execute; begin ShowMessage('Потоки в delphi.'); end; procedure TForm1.Button1Click(Sender: TObject); var NewThread: TNewThread; begin NewThread:=TNewThread.Create(true); NewThread.FreeOnTerminate:=true; NewThread.Priority:=tpLower; NewThread.Resume; end; end. |
#2
|
||||
|
||||
Я скопировал ваш код к себе в проект
Нажал кнопку получил Потоки делфи. Win7 + D 2010 |
#3
|
|||
|
|||
Цитата:
у меня выскакивает ошибка: debugger exception notification Последний раз редактировалось Grimm, 07.10.2010 в 23:08. |
#4
|
||||
|
||||
да, совершенно верно.
Решение вашей проблемы, может быть создание нового проекта и по новой переписать uniq |
#5
|
|||
|
|||
правильно я понял, что сначало создаётся тело потока, потом в нужный момент вызывается это тело, и оно работает в отдельном потоке? попробую переписать заново
|
#6
|
|||
|
|||
незнаю что была за ошибка, сейчас всё нормально работает! Огромное спасибо Вам, Uniq!, очень помогли, долгое время не мог разобраться. Тема закрыта
|
#7
|
|||
|
|||
нет тему еще рано закрывать.
По нажатию на кнопку Button1 поток выдает то нормальное окно то не полностью прорисовавшееся. В чем проблемма ? Помогите исправить. |