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

[Aliens_wolfs]

После каждого label ставь sleep(Примерно 500);- можно подобрать задержку. У тебя через label быстро информация проходит нужна задержка чтобы увидеть информацию

[spydark91]

да,спасибо,работает
можешь помочь со вторым потоком?(там где про getasynckeystate)

[Aliens_wolfs]

Сейчас попробуем разобраться
getasynckeystate это проверка состояния клавиши как я понял?

[spydark91]

да,там если нажаты esc+q то выполняется щелчек на одну кнопку,если ESC+W,то на другую
если я вставляю это просто в таймер,то все ок,но с потоком какаято фигня
таймер нельзя,тк он будет тормащить программу

[Aliens_wolfs]

Попробуй так
Оставь предыдущий код так как есть, только подправь новые значения

//Объявляем в TForm1
 public
    procedure OnTimer(Sender: TObject);
    procedure OnKeyState(Sender: TObject);//Добавляем новую функцию
  end;

  //Поток
TTimer = class(TThread)
//Событие
FOnTimer:TNotifyEvent;
FTick:integer;//Добавляем изменяемое значение в sleep потока
protected
procedure Execute; override;
//Функция события
procedure DoTimer; virtual;
public
constructor Create(Tick: integer=5); virtual;//Изменяем функцию. Добавляем изменяемое значение в sleep по умолчанию 5
destructor Destroy; override;
published
property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
end;

var
  Form1: TForm1;
Timers: array[0..2]of TTimer;// Меняем значения в Имени потока


constructor TTimer.Create(Tick: integer=5);
begin
inherited Create(True);
FreeOnTerminate := True; //Для уничтожения потока когда он остановлен
FTick:=Tick;//значение sleep потока
resume; //запускаем поток
end;

procedure TTimer.Execute;
begin
//Крутим поток
while not Terminated do
begin
//Вызываем функцию
Synchronize(DoTimer);
sleep(FTick);
end;
end;


//Добавляем функцию для нового события
procedure TForm1.OnKeyState(Sender: TObject);
var esc,q,w:boolean;
begin
//Ваш код
if getasynckeystate($1b) <> 0 then esc:=true;
if getasynckeystate($51)<>0 then q:=true;
if getasynckeystate($57)<>0 then w:=true;
if settings.CheckBox7.Checked=true then
  begin
    if (esc=true) and (w=true) then
      form2.b6;
  end;
if (esc=true) and(q=true) then
  form2.b5;
end; 

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Создаем поток работающий с функцией OnTimer и запускаем его
Timers[0] :=TTimer.Create(500);
Timers[0].OnTimer:=OnTimer;//передаем работу функции TForm1.OnTimer потоку
//Создаем поток работающий с функцией OnKeyState и запускаем его
Timers[1] :=TTimer.Create(10);
Timers[1].OnTimer:=OnKeyState;//передаем работу функции TForm1.OnKeyState потоку
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Останавливаем потоки
Timers[0].Terminate;
Timers[1].Terminate;
end;

[spydark91]

мне надо чтобы не только на форме ловилось,но и если форма не имеет фокуса

[spydark91]

Timers[1].OnTimer:=OnKeyState; //перенаправить событие в TForm1

как это"перенаправляем",можешь объяснить?

[Aliens_wolfs]

Timers[1] это уже новый поток он создан на основе TTimer потока

Попробуй код, если не будут перехватываться то можно попробовать без потока с помощью событий но это уже другой код будет

[spydark91]

а можно с помощью событий? мне давно интересно было как винда оюрабатывает события кнопок

[spydark91]

объясни плиз

property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;