Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como desactivar ALT+TAB ??? (https://www.clubdelphi.com/foros/showthread.php?t=26906)

seba_cipo 07-11-2005 13:55:20

como desactivar ALT+TAB ???
 
hola a todos.. mi consulta es como hago para desactivar la combinacion de teclas ALT+TAB de mi aplicacion,,,,, desde ya muchas gracias por su ayuda!!
:rolleyes:

dec 07-11-2005 14:39:48

Hola,

Se me ocurre lo que verás abajo, pero, encuentro, al menos, un inconveniente: no solamente evitas la combinación de teclas en tu aplicación, pero en todas... seguro estoy de que puede mejorarse. ;)

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Forms, Messages, Windows;
 
 type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
   private
     procedure AppMessage(var Msg: tagMSG; var Handled: Boolean);
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 // Se crea este formulario.
 //
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AppMessage;
 end;
 
 // Nota: Este método y el anterior podrían omitirse
 // si no se precisase reaccionar a la pulsación de
 // la combinación de teclas que registramos abajo.
 //
 procedure TForm1.AppMessage(var Msg: tagMSG;
   var Handled: Boolean);
 begin
   if (Msg.message = WM_HOTKEY) then
   begin
     MessageBox(Handle, 'Se pulsó ALT+TAB', '', 0);
     Handled := true;
   end;
 end;
 
 initialization
   RegisterHotKey(Application.Handle, GlobalAddAtom('ALT+TAB'), MOD_ALT, VK_TAB);
 finalization
   UnregisterHotKey(Application.Handle, GlobalAddAtom('ALT+TAB'));
 
 end.

marceloalegre 07-11-2005 15:27:12

no en 98..
 
Yo en varias oportunidades tuve que bloquear teclas pero alt tab no pudo ser bloqueada en 98... lo que postea dec es para w2000/xp

Saludos!

dec 07-11-2005 15:33:42

Hola,


Cita:

Empezado por kanvictor
(...) lo que postea dec es para w2000/xp

Bien puede ser así: ciertamente lo probé nomás en Windows XP profesional SP2.

Cabanyaler 08-11-2005 11:13:44

www.q3.nu

En esta web lo encontrarás.
Suerte.

seba_cipo 08-11-2005 23:23:09

muchisimas gracias por ayudarme,,, con tu codigo dec ,, andubo joya,, con win XP sp2
!!!!!!!!!!!!!!!!!!!!! gracias !!!!!!!!!!!!!!!!!!!!!!!

dec 01-12-2005 23:34:48

Hola,

Que digo que el código que puse más arriba puede ser un poco más claro aún si se tienen en cuenta los miembros de la variable "Msg" que se pasa como parámetro en el método "AppMessage". Puede verse en este Hilo. Bueno, y en la ayuda del mensaje "WM_HOTKEY" en el SDK de Win32. Vivan las siglas. Amén. ;)


La franja horaria es GMT +2. Ahora son las 05:58:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi