Delphi Завершение потока

[Stilet]

Значит это событие кнопке не назначено )

[bilibian]

Сообщение от Stilet

Значит это событие кнопке не назначено )

Ну а как тогда назначить?

Я подключил к дополнительному потоку, основной!

Назначил событие кнопке в этом потоке. Что еще то?

Название класса в основном потоке:

TForm1 = class(TForm)

А в дополнительном

TFormMain = class(TForm)

Если назначить одинаковые, то при запуске приложения будет ошибка.

[northener]

Я подключил к дополнительному потоку, основной!

Вот отсюда желательно подробнее. Что значит подключил к дополнительному потоку основной?

[bilibian]

Сообщение от northener

Вот отсюда желательно подробнее. Что значит подключил к дополнительному потоку основной?

Ну TForm (класс который создается при создании проекта) его я подключил в дополнительный поток TThreat

type
  TFormMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

Далее прописал событие для кнопки Button1 уже в доп потоке

[northener]

Ну TForm (класс который создается при создании проекта) его я подключил в дополнительный поток TThreat

Далее прописал событие для кнопки Button1 уже в доп потоке

<telepator on>
Дай угадаю. В модуль где прописан доппоток T1 = class(TThread) ты добавил строки

type
  TFormMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

И решил что эта TFormMain = class(TForm) будет означать главную форму твоего проекта, а Button1: TButton; будет той самой кнопкой, которую ты нажимаешь?
<telepator off>

[Stilet]

Ну а как тогда назначить?

Архивируй проект целиком и прикладывай его сюда.

[bilibian]

Сообщение от northener

<telepator on>
Дай угадаю. В модуль где прописан доппоток T1 = class(TThread) ты добавил строки

type
  TFormMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

И решил что эта TFormMain = class(TForm) будет означать главную форму твоего проекта, а Button1: TButton; будет той самой кнопкой, которую ты нажимаешь?
<telepator off>

В яблочко, тебе бы на битву экстрасенсов


По сути у меня есть рабочая версия проекта.

Событие для кнопки я прописал в основном потоке TForm1 которая запускает доп поток TThread и это работает без проблем.

Просто хотел сделать все в одном месте, плюс нет возможности проверить свойство terminated из основного потока.

[northener]

Просто хотел сделать все в одном месте

Ну так перенеси описание класса доппотока в модуль главной формы.

[bilibian]

Использую таймер в котором каждые 10 мин запускается скрипт.


Решил вынести выполнение этого кода в отдельный поток.

Подключаем поток к главному модулю:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

var
  Form1: TForm1;
  T:Thread;

В самом таймере пишем:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  T:=Thread.Create(true);
  T.FreeOnTerminate:=true;
  T.Resume;
  T.Priority:=tpNormal;
end;

На кнопке запуска пишу код:

procedure TForm1.Button1Click(Sender: TObject);

begin
  if form1.timer1.Enabled = true then 
  begin
    form1.timer1.Enabled := false;
    form1.button1.Caption:='Старт';
  end 
  else 
  begin
    form1.timer1.Enabled := true;
    form1.button1.Caption:='Стоп';
  end;
end;

procedure Thread.Execute;
begin
   код который должен выполниться при запуске таймера.
end;

В итоге нихрена не работает. В чем трабла?

[northener]

Использую таймер в котором каждые 10 мин запускается скрипт.
Решил вынести выполнение этого кода в отдельный поток.

В поток или в потоки? В один или во многие?

В итоге нихрена не работает. В чем трабла?

А что тут в представленном коде должно работать и как должно работать?