 | Disabilita la visualizzazione del cursore del MOUSE
(provvede anche al collaudo della sua abilitazione)
|
Esempio di
Applicazione |
|
|
|
 |
PROGRAM Prova_ViaMouse;
USES Crt,
giobe;
VAR
tasto:char;puls:word;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
KeyClickMessage2 (tasto,puls,15,1,
'far apparire il Cursore');
VediMouse;
KeyClickMessage2 (tasto,puls,15,1,
'far sparire il Cursore');
ViaMouse;
KeyClickMessage2 (tasto,puls,15,1,
'terminare il programma');
TextBackground(0);{************************************}
ClrScr; {* Aspetta un tasto o il click di
un*}
gotoxy (1,25); {*
pulsante del Mouse e torna a DOS *}
RipCur; {************************************}
END.
|
|
