KeyPressed: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 22: Řádek 22:
 
  {KeyPress.PAS}
 
  {KeyPress.PAS}
 
  {Vzorový příklad pro funkci KeyPressed.}
 
  {Vzorový příklad pro funkci KeyPressed.}
 +
 
  { Pro Windows: }
 
  { Pro Windows: }
 
  { uses WinCrt; }
 
  { uses WinCrt; }

Aktuální verze z 23. 1. 2014, 10:26

Zjistí, zda byla stisknuta nějaká klávesa klávesnice.


Deklarace
function KeyPressed: Boolean;


Režim
Windows, Reálný, Chráněný


Poznámky
Klávesu lze přečíst pomocí Readkey.


Návratová hodnota
False jestliže byla stisknuta nějaká klávesa.


Vzorový příklad

{KeyPress.PAS}
{Vzorový příklad pro funkci KeyPressed.}

{ Pro Windows: }
{ uses WinCrt; }

uses Crt;
begin
  repeat
    Write('Xx');
  until KeyPressed;
end.