[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]

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

[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));

[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;

[nixon232]

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

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

Код:

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

Именно. На него выше ссылку и дал. Всем спасибо.

[nixon232]

И все же основную проблема зависшего статуса кнопки это не решило. Отвисает только если проведешь по форме курсором. Казалось из-за работы с формой, но если ее не трогать, то все так же. Что может быть?

[Alegun]

Да не видно без кода-то ничего, может из потока пытаетесь текст на статусе изменить, а на это существует табу, мож у вас "шкурка самца" установлена, альфаскин любит глючить, может ещё чего не хватает типа Application.ProcessMessage etc., да всё, что угодно

[nixon232]

Проверяю в потоке (по таймеру все равно не так работало)
Без синхрона на Getstate не хочет работать. Waitme - sleep без фризов интерфейса. Синхроном работает, но только если курсор на форме

Код:

procedure TStateKB.Execute;
begin
while not Terminated do

  GetState;
  WaitMe(300)

end;

procedure TStateKB.GetState;
var State: TKeyboardState; r: Boolean;
begin
Application.ProcessMessages;
  r :=  CtrlDown;
       Win.ctrl:=r;
end;

Ну и проверка как-то так.

Код:

    if CTRL then

            Synchronize(Something);

Еще, до проверки есть

Код:

function EnumWindowsProc(h: HWND; lParam: lParam): Boolean; stdcall;
var CN: array [0 .. 1023] of Char; i: integer; s: string; WndRect: TRect;
begin
  Application.ProcessMessages;
  Result := TRUE;
----

и все работает, независимо где курсор, пока нет искомого окна