[nixon232]

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

Код:

var KeyState: Word;
begin
   KeyState := GetKeyState(VK_CONTROL);

  if KeyState and 1 = 1 then
    Result:= False
  else
    Result:=True;
end;

Само по себе все хорошо, но эта проверка происходит в зацикленном потоке и если на время зажать контрол, то оно как бы стакает проверки и когда отпускаешь получается, что долго идет проверка старого состояния. то есть если функция приняла False, То True она примет не когда контрол опушен. как тогда лучше реализовать проверку зажатия CTRL?

Код:

If true then
pause
else 
work

[lmikle]

Например, проверять состояние в главеом потоке, а в подчиненные потоки просто сообщать об этом. Т.е. не проверять из доп. потока. Похоже, что просто не доходит обновление состояния до потока по какой-то причине.

[nixon232]

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

Например, проверять состояние в главеом потоке, а в подчиненные потоки просто сообщать об этом. Т.е. не проверять из доп. потока. Похоже, что просто не доходит обновление состояния до потока по какой-то причине.

Да вот все равно как-то никак, либо не так делаю. сделал даже через Property

Код:

 property CTRL: Boolean read GetSCTRL write SetSCTRL default true;

и в потоке Присваиваю, где Canclick - ф-я с первого поста, объявленная в главном потоке

Код:

  ;
   CTRL := CanClick;

    if CTRL then begin

[lmikle]

не важно где объявлена фунция. важно где она вызывается.
Еще раз.
В потоке объявляешь проперти (ну или просто public атрибут, это не принципиально, бо как поток его должен только читать).
В основной программе кидаешь на форму таймер и, например, с задержкой 250 мс (Interval) пишешь примерно такой код:

Код:

procedure TMainForm.Timer1Timer(Sender : TObject);
var
  I : Integer;
  ctrlState : Boolean;
begin
  Timer1.Enabled := False;
  ctrlState := Odd(GetKeyState(VK_CONTROL));
  // Тут проходим по всем потокам (я не знаю как ты хранишь на них ссылки) и устанавливаем свойство
  // Пусть ссылки на потоки хранятся в массиве MyThreads : Array Of TMyThread
  For I := Low(MyThreads) To High(MyThreads) Do 
    MyThreads[i].CTRL := ctrlState;
  Timer1.Enabled := True;
end;

[nixon232]

а вы проверяли код? я вон для теста, по вашей аналогии сделал. Даже если пока не трогать поток, то получается, что он реагирует не на ЗАЖАТИЕ,а на НАЖАТИЕ, в этом наверное и проблема

Код:

procedure TForm1.TCtrlTimer(Sender: TObject);
 var
 ctrlstate:Boolean;

begin
  TCtrl.Enabled := False;
ctrlstate:=Odd(GetKeyState(VK_CONTROL));
 // TMThr.ICTR :=ctrlstate;
  // Тут проходим по всем потокам (я не знаю как ты хранишь на них ссылки) и устанавливаем свойство
  // Пусть ссылки на потоки хранятся в массиве MyThreads : Array Of TMyThread
if not ctrlstate then
status.Panels[0].Text:='CTRL!'
else status.Panels[0].Text:='';
  TCtrl.Enabled := True;
end;

[nixon232]

Вот решение http://www.delphisources.ru/pages/fa..._key_down.html

[Alegun]

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

...получается, что он реагирует не на ЗАЖАТИЕ,а на НАЖАТИЕ...

Тогда и проверять нужно "НАЖАТИЕ" а не "ЗАЖАТИЕ"

Код:

function CtrlDown : Boolean;
var
 State : TKeyboardState;
begin
 GetKeyboardState(State);
 Result := ((State[vk_Control] and 128) <> 0);
end;

[Alegun]

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

Код:

var KeyState: Word;
begin
   KeyState := GetKeyState(VK_CONTROL);

  if KeyState and 1 = 1 then
    Result:= False
  else
    Result:=True;
end;

А не проще одной строкой

Код:

Result:= Odd(GetKeyState(VK_CONTROL));