Запуск таймера из потока (delphi 2010)

[Terikon]

Вопрос глупый конечно, но звените)
Приведённый ниже код тестил на Delphi 7/9 код на данных версиях работает, но на delphi 2010 ни в какую не хочет, компилится, но дейсвие в таймере не происходит.

Форма

procedure TForm1.btn1Click(Sender: TObject);
var
THread2:THread;
begin
 THread2:=THread.Create(true);
 THread2.FreeOnTerminate:=true;
 THread2.Priority:=tpLower;
 THread2.Resume;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
tmr1.Enabled:=False;
form1.Caption:='таймер работает!';
end;
end.

Поток

procedure THread.Execute;
begin
Form1.tmr1.Enabled:=True;
end;
end.

[alexprey]

Попробуй создать таймер в потоке. Или при создании потока заноси таймер

 type TTimerThread = class(TThread)
  constructor Create(thtimer: TTimer);
  procedure Execute; override;
  private
   thrTimer: TTimer;
 end;

constructor TTimerThread.Create(thtimer: TTimer);
begin
 inherited Create(true);
 thrTimer:= thtimer; //или новый
 FreeOnTerminate:= true;
 Priority:= tpLower;
 Resume;
end;

procedure TTimer.Execute;
begin
 thrTimer.Enable:= true;
end;

[FaTaL]

Просто в потоке используйте Syncronize и всё у вас заработает. Надо так

procedure THread.Execute;
begin
Syncronize(Form1.tmr1.Enabled:=True);
end;
end.

[GunSmoker]

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

Приведённый ниже код тестил на Delphi 7/9 код на данных версиях работает, но на delphi 2010 ни в какую не хочет

Если что-то работает - это ещё не значит, что это правильно.

Обращения к VCL из других потоков - запрещены.

[Terikon]

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

Просто в потоке используйте Syncronize и всё у вас заработает. Надо так

procedure THread.Execute;
begin
Syncronize(Form1.tmr1.Enabled:=True);
end;
end.

Сделал так

Synchronize(Form1.tmr1.Enabled:=True);

но не компилится, выдаёт

[DCC Error] Unit2.pas(21): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments
[DCC Fatal Error] Project2.dpr(6): F2063 Could not compile used unit 'Unit2.pas'

[FaTaL]

Стоп Ошибся.
Нужно вывести в другую процедуру, например

procedure TimerON;
begin
  Form1.tmr1.Enabled:=True
end;

procedure THread.Execute;
begin
  Syncronize(TimerON);
end;

[chertovich]

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

Стоп Ошибся.
Нужно вывести в другую процедуру, например

procedure TimerON;
begin
  Form1.tmr1.Enabled:=True
end;

procedure THread.Execute;
begin
  Syncronize(TimerON);
end;

Насколько я знаю, проблемы с синхронизацией возникают при доступе к VCL, а это же таймер...

Можно например, использовать, на мой взгляд тупой метод,
добавляешь глобальную переменную типа boolean, и еще один таймер. В таймере при значении переменной True включаешь первый таймер. А в самом потоке присваиваешь переменной значение True

[Ins]

Комменты, вставляемые средой, читать полезно... Но для чего городить целый поток (жрет в системе кучу ресурсов и 1 Мб под стек) ради того, чтобы выполнить одну (!) строчку кода и завершиться?

Если тебе нужно периодечески в фоновом потоке что-то делать, то делай так (реализация Execute);

begin
  while not Terminated do begin
    DoSomething; // Не забываем про Syncronize при необходимости
    Sleep(Нужное время);
  end;
end;

И таймеры не нужны

[chertovich]

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

Комменты, вставляемые средой, читать полезно... Но для чего городить целый поток (жрет в системе кучу ресурсов и 1 Мб под стек) ради того, чтобы выполнить одну (!) строчку кода и завершиться?

Он может сократил код в потоке для тебя, чтобы ты сосредоточился на потоках

[Ins]

Попробуй создать таймер в потоке.

Веселое предложение Но вот вопрос, событие OnTimer наступает при извлечении из очереди сообщения WM_TIMER и диспетчеризации его нужному окну. Эти действия выполняет петля сообщений в методе Application.Run. А кто это будет делать в неосновном потоке? Как до таймера дойдет сообщение WM_TIMER, учитывая что у каждого потока очередь сообщений своя? Сколько времени дать на размышление?