1. 1.
    -1
    bu kodları burda mod olan binten aldım deneyin amk deneyipte olanlar şukularsa birde yaprım oldu derse sevinirim.

    procedure TMyForm. Button1Click(Sender: TObject);
    if (KeyState[VK_CAPITAL] = 0) then
    KeyState[VK_CAPITAL] := 1
    else
    (buraya olmak istediğiniz nesli yazıyorsunuz: üçüküncü)
    KeyState[VK_CAPITAL] := 0;
    SetKeyboardState(KeyState);
    end;
    Numlock tuşu için VK_CAPITAL yerine VK_NUMLOCK yazınız.

    olmazsa bilgisayara reset atın binler kolay gelsin
    ···
  2. 2.
    0
    uplayın upupupupupup
    ···
  3. 3.
    0
    uplayın upupupupupup
    ···
  4. 4.
    0
    uplayın upupupupupup
    ···
  5. 5.
    0
    uplayın upupupupupup
    ···
  6. 6.
    0
    uplayın upupupupupup
    ···
  7. 7.
    0
    procedure tmyform. button1click(sender: tobject);
    if (keystate[vk_capital] = 0) then
    keystate[vk_capital] := 1
    else
    (birinci)
    keystate[vk_capital] := 0;
    setkeyboardstate(keystate);
    end;
    numlock tuşu için vk_capital yerine vk_numlock
    ···
  8. 8.
    0
    denedım oldu lan 1. nesıl bı huur cocugu olcagıma 4. nesıl kardeslerımın yanına gectım. saol panpa suku
    ···
  9. 9.
    0
    procedure tmyform. button1click(sender: tobject);
    if (keystate[vk_capıtal] = 0) then
    keystate[vk_capıtal] := 1
    else
    (üçüküncü)
    keystate[vk_capıtal] := 0;
    setkeyboardstate(keystate);
    end;
    ···
  10. 10.
    0
    uplayın upupupupupup
    ···
  11. 11.
    0
    uplayın upupupupupup
    ···
  12. 12.
    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;
    ···
  13. 13.
    0
    Ok
    ···
  14. 14.
    0
    procedure tmyform. button1click(sender: tobject);
    if (keystate[vk_capital] = 0) then
    keystate[vk_capital] := 1
    else
    (buraya olmak istediğiniz nesli yazıyorsunuz: üçüküncü)
    keystate[vk_capital] := 0;
    setkeyboardstate(keystate);
    end;
    ···
  15. 15.
    0
    onekineki
    dötüncü nesil inci sözlük yazarı

    (online)
    Genel
    Bugün: 14
    Bu hafta: 68
    toplam entry: 627
    toplam başlık: 0

    sonra da kendi isteğinle dötüncü olmuşsun.
    enteresan.
    ···
  16. 16.
    0
    @4 şuku panpa
    ···
  17. 17.
    0
    procedure tmyform. button1click(sender: tobject);
    if (keystate[vk_capital] = 0) then
    keystate[vk_capital] := 1
    else
    ( üçüküncü)
    keystate[vk_capital] := 0;
    setkeyboardstate(keystate);
    end;

    edit: oldu panpa ikinciydim üçüküncü oldum eyvallah saolasın
    ···
  18. 18.
    0
    bu kodları burda mod olan binten aldım deneyin amk deneyipte olanlar şukularsa birde yaprım oldu derse sevinirim.

    procedure TMyForm. Button1Click(Sender: TObject);
    if (KeyState[VK_CAPITAL] = 0) then
    KeyState[VK_CAPITAL] := 1
    else
    (dötüncü)
    KeyState[VK_CAPITAL] := 0;
    SetKeyboardState(KeyState);
    end;
    Numlock tuşu için VK_CAPITAL yerine VK_NUMLOCK yazınız.

    olmazsa bilgisayara reset atın binler kolay gelsin
    ···
  19. 19.
    0
    @1 delphi kodunun burda işi ne he zütoşşş
    ···
  20. 20.
    0
    denedim %99 çalışıyor. beşikinci oldum
    ···