-
26.
-1bu 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