![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
Eso lo puedes hacer con el componente HotKeyManager.
http://www.vclcomponents.com/Delphi/...ager-info.html Un saludo. |
|
#2
|
||||
|
||||
|
Se puede hacer con muchos más componentes además de ese, pero creo que no radica ahí el problema, ya que si miras el código del procedimiento AddHotKey del componente verás que acaba llamando a las funciones:
* GlobalAddAtom * RegisterHotKey Que son las mismas que se llaman en el ejemplo anterior. Supongo que si no han funcionado antes...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
#3
|
|||
|
|||
|
{
RegisterHotKey fails if the keystrokes specified for the hot key have already been registered by another hot key. Windows NT4 and Windows 2000/XP: The F12 key is reserved for use by the debugger at all times, so it should not be registered as a hot key. Even when you are not debugging an application, F12 is reserved in case a kernel-mode debugger or a just-in-time debugger is resident. } esto estaba alla en la funcion. ¿Es posible que sea lo que te esta ocurriendo? |
|
#4
|
|||
|
|||
|
Pues sí. Ahora va xD.
|
|
#5
|
|||
|
|||
|
Bueno pues ahí pongo otra solución sin usar componentes externos como sugiere Neftali:
Código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure HtoK(var Msg : TWMHotKey); message WM_HotKey;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure tform1.HtoK(var Msg : TWMHotKey);
begin
showmessage('Alt-V');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
registerHotKey(handle,GlobalAddAtom('ALT_V'),MOD_ALt,vKKeyscan('v'));
end;
end.
|
|
#6
|
|||
|
|||
|
Si, bueno, sur-se, eso es exactamente el codigo de neftali, pero incorrecto...¿deberas desregistrarlas al acabar la aplicación no?
|
|
#7
|
|||
|
|||
|
y...el componente externo lo has citado tu...
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Redimensionar componentes de un form | madmai | Varios | 2 | 07-11-2007 11:02:48 |
| Ayuda con componentes en form | Vinicio | Varios | 8 | 13-09-2006 21:38:50 |
| Deshabilitar TODOS los componentes de un Form | TrUnkS | OOP | 3 | 12-04-2006 21:28:28 |
| componentes sin form | coleleon | OOP | 1 | 30-11-2005 13:10:56 |
| Scalar Componentes al redimensionar Form | jsc | Varios | 5 | 26-07-2004 16:50:16 |
|