[nixon232]

Что форум совсем глючит, пропадают сообщения.
Решил вот так, не знаю как это на что-то влияет, но не суть

Код:

----
for i := 1 to pab.max do
          begin

          tab:=pab.table[i];
          y:=tab.HRect.Top;
          x:=tab.HRect.Left;
---

возникла новая странность: мне нужно чтобы процедура выполнялась если не нажат любой из модификатор. По кнопке оно работает, а в потоке всегда возвращает True;

Код:

 function CanClick: Boolean;
  var State:TKeyboardState;
  begin
  Result:=False;
    GetKeyboardState(State);
  Result := not(((State[vk_Control] and 128) <> 0) or
      ((State[VK_SHIFT] and 128) <> 0) or
      ((State[VK_MENU] and 128) <> 0))
  end;
fibish:=false;
fibish:=CanClick;
         if fibish then
         begin
           HudKB(p,tab.HWND);
           sleepex(2000, true);
         end;

Я не понимаю, почему всегда True? и что делать? запускать CanClick в отдельно потоке?