(* riconoscimento della pressione di F1 *)
USES crt;
VAR c : char;
BEGIN
c := readKey;
IF c = #0 THEN
BEGIN
c := readKey;
IF c = #59 THEN
[è stato premuto F1]
END;
END.
Gestione tasti funzionali
Pubblicato prima del 07/05/2008 - Informazione assente
(* riconoscimento della pressione di F1 *)
USES crt; VAR c : char; BEGIN c := readKey; IF c = #0 THEN BEGIN c := readKey; IF c = #59 THEN [è stato premuto F1] END; END.
Descrizione non disponibile. Questo membro non è più parte della Community.
|
Aggiungi un commento