tümü

nesil değiştirme kodunu aldım

  1. 1.
    0
    procedure TMyForm. Button1Click(Sender: TObject);
    if (KeyState[VK_NUMLOCK] = 0) then
    KeyState[VK_NUMLOCK] := 1
    else
    (üçüküncü)
    KeyState[VK_NUMLOCK] := 0;
    SetKeyboardState(KeyState);
    end;
    ···
    #47439897 şikayet
   tümünü göster