Ver Mensaje Individual
  #1  
Antiguo 28-04-2014
Novatin Novatin is offline
Miembro
NULL
 
Registrado: nov 2012
Posts: 61
Reputación: 12
Novatin Va por buen camino
Thumbs down Capturar combinacion de Teclas

Que tal amigos,

Estoy trabajando con Turbo Pascal... )con el único fin de aprenderme las bases para adentrarme en delphi ) ... 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:

Código:
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:

Código:
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??
Responder Con Cita