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