1. 1.
    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;
    ···
   tümünü göster