Novatin
28-04-2014, 18:56:30
Que tal amigos,
Estoy trabajando con Turbo Pascal... )con el único fin de aprenderme las bases para adentrarme en delphi :p) ... y como practica estoy transportando código desde turboC.. sin embargo estoy tropezando con un gran problema.. y es que tengo el siguiente código en C:
int select;
.....
if(select!=ESC) //captura de Tecla!!!
{
//select=getch();
for(i=0;i<20;i++)
if(kbhit())
getch();
select=getch();
if(select==0)
select=getch()+1000;
}
.....
El cual me permite capturar combinaciones de teclas como Ctrl+Tab y Ctrl+Backspace; e intentado hacer lo mismo en pascal... Pero me funciona a medias, es decir me funciona para teclas sueltas pero en cuanto intento usar Ctrl+Tab y Ctrl+Backspace no me anda...:( , este es el código que uso:
select: Char;
...
if(select<>ESC) then {captura de Tecla!!!}
begin
for i:=1 to 20 do
if(KeyPressed)then
ReadKey;
select:=ReadKey;
if select=#0 then
select:=ReadKey+1000;
end;
...
me podrían ayudar a encontrar donde me estoy equivocando??
Estoy trabajando con Turbo Pascal... )con el único fin de aprenderme las bases para adentrarme en delphi :p) ... y como practica estoy transportando código desde turboC.. sin embargo estoy tropezando con un gran problema.. y es que tengo el siguiente código en C:
int select;
.....
if(select!=ESC) //captura de Tecla!!!
{
//select=getch();
for(i=0;i<20;i++)
if(kbhit())
getch();
select=getch();
if(select==0)
select=getch()+1000;
}
.....
El cual me permite capturar combinaciones de teclas como Ctrl+Tab y Ctrl+Backspace; e intentado hacer lo mismo en pascal... Pero me funciona a medias, es decir me funciona para teclas sueltas pero en cuanto intento usar Ctrl+Tab y Ctrl+Backspace no me anda...:( , este es el código que uso:
select: Char;
...
if(select<>ESC) then {captura de Tecla!!!}
begin
for i:=1 to 20 do
if(KeyPressed)then
ReadKey;
select:=ReadKey;
if select=#0 then
select:=ReadKey+1000;
end;
...
me podrían ayudar a encontrar donde me estoy equivocando??