Так ну что.
Код:
TNewThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
TNewThread - Название нового класс. Это примерно как:
Код:
Элекстрчка = class(поезд)
и что мы можем делать с поездом? правильно Execute (открывать)
или аналог в реальном мире "заводить" дыр-дыр-дыр.
Дальше опишем как мы этот Дыр-Дыр-Дыр реализуем...
Аффтар
реализует его вот так
Код:
procedure TNewThread.Execute;
begin
while true do {ничего не делаем};
end;
А дальше создаём кнопку и ей пишем:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
NewThread: TNewThread; // говорим программе что мы хотим использовать
// новую электричку типа Поезд.
begin
NewThread:=TNewThread.Create(true); //строим поезд
NewThread.FreeOnTerminate:=true; // не знаю :confused: не могу узнать при желании
NewThread.Priority:=tpLower; // приоритет потока, низкий
NewThread.Resume; // тоже не знаю но тоже могу узнать
end;