Как сделать меню на паскале? - Turbo Pascal

Формулировка задачи:

Не нашел нигде даже намека на то, как сделать кнопку на паскале, может кто подскажет? Мне нужно написать программу с вводом данных и выводом таблиц, остальное все понятно, но застрял на меню. Достаточно намека как сделать пустую кнопку при нажатии на которую например выходит сообщение "Привет"...

Код к задаче: «Как сделать меню на паскале? - Turbo Pascal»

textual
UNIT Mouse;
Interface
Var
   PositionX   : word;
   PositionY   : word;
Function MouseInstalled : boolean;
Function MouseMoved : boolean; 
Procedure GetMouse;
Function SetMouseRange(x,y:word):boolean;
 
Implementation
 
Function MouseInstalled : boolean;assembler;
asm
        mov ax,0
        int 33h
End;
Function MouseMoved : boolean; assembler;
asm
        mov ax,3
        int 33h
        cmp PositionX,cx
        jnz @@ItMoved
        cmp PositionY,dx
        jnz @@ItMoved
        mov ax,FALSE
        ret
@@ItMoved:
        mov ax,TRUE
        ret
 
End;
Procedure GetMouse;assembler;
Asm
        mov ax,3
        int 33h
        mov PositionX,cx
        mov PositionY,dx
End;
Function SetMouseRange(x,y:word):boolean;assembler;
Asm
        mov ax,0007h
        mov cx,0
        mov dx,x
        int 33h
        mov ax,0008h
        mov cx,0
        mov dx,y
        int 33h
End;
END.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ