 | Abilita la visualizzazione del cursore del MOUSE
(provvede anche al collaudo della sua disabilitazione)
|
Esempio di
Applicazione |
|
|
|
 |
|
PROGRAM Prova_VediMouse;
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.
|
|
