[Grimm]

Хочу запустить код в отдельном потоке, классы не изучал. Наткнулся на код примера:

Код:

TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TNewThread }

procedure TNewThread.Execute;
begin
  while true do {ничего не делаем};
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Admin: Пользуемся тегами!

Вот не пойму, как можно сделать этот пример на простой форме, ни как не запускается ((

[Uniq!]

Так ну что.

Код:

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;

[Grimm]

Admin извините, первый раз на форуме, а как создать новый класс, просто добавить код в форму? или как то отдельно создавать?
И можно полный листинг для примера, не понимаю куда вписать

TNewThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

[Uniq!]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  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
  while true do {ничего не делаем};
end;


end.

[Grimm]

Огромное спасибо!

[Grimm]

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

TNewThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end. 


не запускается....

[Uniq!]

Процедуру описать обязательно надо.
Это примерно как записать в словарь слово, и не написать как оно переводиться. Бессмысленная книжка)

[Grimm]

Ясно. Теперь вопрос в том, чтобы поток создавался по нажатию кнопки.. Можно пример, например с выводом сообщения пользователю в отдельном потоке, по кнопке.
попробывал так: - работает по кнопке, но как сюда вставить вывод сообщения?

Код:

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
  while true do {ничего не делаем};
end;


procedure TForm1.Button1Click(Sender: TObject);
         var
          NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

end.

[Grimm]

Всем огромное спасибо за внимание! Разобрался во всем, что хотел.

[Grimm]

Код:

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.

как я понимаю, я хочу вывести пользователю сообщение в отдельном потоке. выскакивает ошибка по нажатию кнопки!!(((