AspettaKeyClick Sorgente - Libreria Giobe.TPU

AspettaKeyClick

CODICE SORGENTE [3 di 4]

La procedura è scritta in Pascal: si limita a fermare il programma in attesa della pressione di un tasto o del click di uno qualunque dei tasti del mouse:

	nel primo caso lascia il valore ASCII del tasto premuto nella variabile tasto
	nel secondo lascia il numero del pulsante del mouse nella variabile pulsante

Entrambe le variabili devono essere fornite dal programma chiamante.

Codice Sorgente
PROCEDURE AspettaKeyClick (VAR tasto:char; VAR pulsante:word); BEGIN REPEAT UNTIL (keypressed) OR (pulMou<>0); IF keypressed THEN tasto:=readkey; IF pulMou<>0 THEN pulsante:=pulMou; REPEAT UNTIL pulMou=0;{aspetta il rilascio del pulsante} END; pulsante del Mouse}

Si osservi la tecnica con cui si aspetta il rilascio dei pulsanti del mouse.

Tastiera	AspettaKeyClick
	Esempio	Sorgente	Mostra
8 di 29

PASCAL »

PROCEDURE »	Caratteri \| Mouse \| Tastiera \| Tempo, Data & Ora Box \| Cornici \| Cursore \| Aree a Riga Intera \| Aree a Schermo Totale
FUNZIONI »	Caratteri \| Mouse \| Tastiera \| Tempo, Data & Ora

^Home

Pascal|Manuali|Tabelle|Schede
Tutorial Assembly|Palestra Assembler

Aggiungi Giobe®2000 ai preferiti

Motore
Ricerca

Rendi Giobe®2000 pagina di Default