 | Subito dopo viene proposto il messaggio
"Premi un tasto o fai click per
terminare il programma", in attesa della pressione di un tasto
o del click di un pulsante del Mouse.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM
Prova_KeyClickMessage2;
USES Crt, giobe;
VAR tasto:char;
puls:word;
BEGIN
VIAcur;
VediMouse;
Riempi1 (15,1,' ');
KeyClickMessage2
(tasto,puls,15,1,'collaudare il
programma');
textbackground(4);textcolor(15);
IF puls=0 THEN gotoxy (25,12) ELSE gotoxy (15,12);
write(' E'' stato premuto il ');
IF puls=0 THEN
begin
if tasto=char(0) THEN readkey; {controllo
tasti
write ('tasto "');
funzionali}
IF tasto=char(13) THEN write ('Enter')
ELSE write (tasto);
write ('" ')
end
ELSE
begin
IF (puls=3) OR (puls=5) OR (puls=6) OR (puls=7) THEN
begin
gotoxy (33,12); write ('pi— di un ');
end;
write ('pulsante ');
IF puls=1 THEN write ('sinistro ');
IF puls=2 THEN write (' destro ');
IF puls=4 THEN write ('centrale ');
write ('del mouse ');
end;
KeyClickMessage2
(tasto,puls,15,1,'terminare il
programma');
END.
|
|
