Проблемы с потоком

[spydark91]

а гдде описывается procedure DoTimer; virtual;?

[Aliens_wolfs]

property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
Это событие создано мною содержащая (Sender: TObject) можно название любое другое задать. когда срабатывает виртуальная процедура procedure DoTimer; тоже название может быть любым,
то происходит работа с внешней процедурой if Assigned(FOnTimer) then
FOnTimer(Self); передающая объект (Sender: TObject) для работы в потоке
Это искуственно созданая процедура.
Без этой процедуры поток не будет работать с процедурой на форме

По событию можно работать так например

// прописать строку в TForm1
public
procedure ProcessFormMessages(var Msg: tMsg; var Handled: Boolean);
end

procedure TForm1.ProcessFormMessages(var Msg: tMsg; var Handled: Boolean);
begin
{ проверка наличия системного сообщения }
case Msg.wParam of
VK_ESCAPE: //Нажата кнопка ESC;
end;
{ сообщаем о том, что сообщение обработано }
Handled := True;
end;
end;

[spydark91]

толкь это у меня чисто потоковый юнит,и формы для него нет
куда мне это вставить?Timers[0] :=TTimer.Create(500);
Timers[0].OnTimer:=OnTimer;
при создании главной формы пойдет?

[Aliens_wolfs]

Замени у себя
Timers:=TTimer.Create;
и
Timers.OnTimer:=OnTimer;
на
Timers[0] :=TTimer.Create(500);
Timers[0].OnTimer:=OnTimer;
и добавь
Timers[1] :=TTimer.Create(10);
Timers[1].OnTimer:=OnKeyState;

Можно расположить и при создании формы и при нажатии кнопки

Я в коде указал красным шрифтом что нужно заменить или добавить, весь код не меняй нужно только подправить его

[spydark91]

procedure TForm2.ProcessFormMessages(var Msg: tMsg; var Handled: Boolean);
begin
case Msg.wParam of
VK_ESCAPE:esc:=true; end;
81:q=true;  end;
87:w:=true; end;

Handled := True;
end;

так?
если да,то [Error] Unit2.pas(139): Undeclared identifier: '81'

[Aliens_wolfs]

С сообщениями события на клавиши не будет работать когда форма не в фокусе.
Здесь лучше ловушку поставить на эти клавиши

попробуй так

//В TForm1 добавь процедуру
private
//процедура для ловушки сообщений с клавиатуры
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Захватываем Клавишу Esc
RegisterHotKey(handle,27, 0, 27);
//Захватываем Клавишу Q
RegisterHotKey(handle,81, 0, 81);
//Захватываем Клавишу W
RegisterHotKey(handle,87, 0, 87);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//Освобождаем Клавишу Esc
UnRegisterHotKey(handle,27);
//Освобождаем Клавишу Q
UnRegisterHotKey(handle,81);
//Освобождаем Клавишу W
UnRegisterHotKey(handle,87);
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
esc,q,w:boolean;
begin
//Ваш код
if getasynckeystate(27) <> 0 then esc:=true;
if getasynckeystate(81) <> 0 then q:=true;
if getasynckeystate(87) <> 0 then w:=true;
if (esc=true) and (w=true) then begin
showmessage('Клавиши esc+w');
form2.b6;
end;
if (esc=true) and(q=true) then begin
showmessage('Клавиши esc+q');
form2.b5;
end;
end;

[evg_m]

ошибка [Error] Unit1.pas(52): Not enough actual parameters на строкеpostmessage(.WM_USER+1, p, unit2.stat);

PostMessage(statysbusy.handle, WM_USER+1, p, unit2.stat);

а если просто наделать процедур и использовать Synchronize? как тут

тогда зачем нужны потоки.
Все что внутри Synchronize выполнятся в ОСНОВНОМ потоке.
А сам поток ЖДЕТ пока это будет выполнено.

[Aliens_wolfs]

Потоки нужны для скорости выполнения определенных функций не грузя ресурсы формы и не подвешивая ее, он все берет на себя.

Без потока например циклы будут вешать форму хотя можно и application.ProcessMessages поставить в промежутке, а как быть с временными паузами например sleep он будет вешать визуальные действия формы
Еще есть и много других функций которые работают в блокирующем режиме, тогда без потоков не обойтись.

Согласен что проще пользоваться сообщениями прямо из потока.

[spydark91]

Aliens_wolfs,спасибо большое,работает)