Кнопки, чтобы нажимались :) Опции

[Anton]

Привет!
Может кто сталкивался, как сделать на паскале кнопки. Так что бы курсорными клавишами можно было передвигать маску или как её назвать, с кнопки на кнопку, а при нажатии enter'a или пробела кнопка утоплялась и нажималась, тоесть производились какие-нибудь действия.

[APAL]

а можно пример меню с кнопками в текстовом режиме ? (без ООП)

Прикрепляю свой модуль.... хотя где-то на форуме я его уже оставлял...
Посмотри там процедурки меню:

Код

Procedure GMenu(k1,k2,Kp:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VMenu(k1,k2,kp:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VMenuColor(k1,k2,Kp,cc,ff:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure GMenuColor(k1,k2,kp,cc,ff:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VM(x,y:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7,
                     ss8,ss9,ss10,ss11,ss12,ss13,ss14,
                     ss15,ss16,ss17,ss18,ss19,ss20 :dlin; NP:Byte;
                                                         Var Result:Byte);
Procedure VMcf(x,y,c0,f0,cCur,fCur:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7,
                     ss8,ss9,ss10,ss11,ss12,ss13,ss14,
                     ss15,ss16,ss17,ss18,ss19,ss20 :dlin;
                     NP:Byte; Var Result:Byte);

Это конечно не кнопки, но вдруг понадобятся.
Делал это очень давно, потому и не ругайте если что вдруг не оптимально...