проверка модификаторов

[BLACK_RAIN]

Здравствуйте.
код:

function WindowProc1(wnd:HWND; Msg : uint; Wpar:Wparam; Lpar:LPARAM):Lresult; stdcall;
var
  t : string;
  c: Cardinal;
Begin
  case msg of

    WM_KEYDOWN:
    begin
      if (Wpar = VK_SHIFT) then
      c := c or VK_SHIFT;
      if  (Wpar = VK_CONTROL) then
      c := c or VK_CONTROL;
      if (Wpar = VK_MENU) then
      c := c or VK_MENU;

      if (c and VK_SHIFT)<>0 then
      t := 'shift + ';
      if (c and VK_CONTROL)<>0 then
      t := t + 'Ctrl + ';
      if (c and VK_MENU)<>0 then
      t := t + 'alt + ';
      SetWindowText(wnd,PChar(t));

    end;

При нажатии Shift или Ctrl, переменная t = shift + ctrl + alt +. При нажатии любых других клавиш t = ctrl +.
В чём ошибка?

[Аватар]

А как на счет мусора в с, которая изначально не инициализирована?

[evg_m]

     VK_SHIFT = 16;  16+0
     VK_CONTROL = 17; 16+1
     VK_MENU = 18; 16+2

(16+0) and (16+1) =16 <>0
(16+0) and (16+2) =16 <>0
(16+1) and (16+2) =16 <>0

if (с and VK_CONTROL) = VK_CONTROL  then t:=t+'Ctrl +';

аналогично для остальных.

[BLACK_RAIN]

Дописал в начало c := 0;
при нажатии shift / ctrl / alt , t = 'shift + ctrl + alt + '
почему все сразу-то? я же их по одной нажимаю. И код так написан, что в 'с' только одна клавиша может быть.
чё за глюк на ровном месте?

[evg_m]

почему все сразу-то?

потому что все модификаторы имеют общий (ненулевой) бит (см.пост 3)
и как бороться там же.

[BLACK_RAIN]

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

if (с and VK_CONTROL) = VK_CONTROL then t:=t+'Ctrl +';

если так , то получается следующее:
при нажатии на shift t = 'shift +'
при нажатии на ctrl, t = 'shift + ctrl + '

[evg_m]

аналогично это

if (c and <модификатор> ) =<ТОТже модификатор>

в прочем да действительно это ВСЕГДА будет добавлять Shift =(16 +0).
так что придется ОТКАЗАТЬСЯ от использования этих констант в качестве битовых масок и завести СВОИ собственные константы.

MVK_Shift =1
MVK_Ctrl   =2
MVK_Alt    =4

которыми и пользоваться

[BLACK_RAIN]

      c := 0;
      if (Wpar = VK_SHIFT) then
      c := c or VK_SHIFT;
      if  (Wpar = VK_CONTROL) then
      c := c or VK_CONTROL;
      if (Wpar = VK_MENU) then
      c := c or VK_MENU;

      if (c and VK_SHIFT)= VK_SHIFT then
      t := t + 'shift + ';//c=16
      if (c and VK_CONTROL) = VK_CONTROL then
      t := t + 'Ctrl + ';// c=17
      if (c and VK_MENU)= VK_MENU then
      t := t + 'alt + ';
      SetWindowText(wnd,PChar(IntToStr(c)+','+t));

если так , то получается следующее:
при нажатии на shift t = 'shift +'
при нажатии на ctrl, t = 'shift + ctrl + '
alt переходит в меню окна. До него код вообще не доходит.
Можно, конечно, сделать изврат в виде трёх дополнительных переменных. Но как-то же можно без этого?

[evg_m]

можно конечно обойтись и одной доп. константой
MVK_Shift =16+4
но совершенно точно нельзя будет продолжать пользоваться VK_shift (=16+0) из-за её нулевого бита.

[BLACK_RAIN]

Спасибо. Разобрался