Pasando información a la ventana activa

[SaraTorres]

Chicos
El código de abajo sirve para detectar cuando presionamos el "clic derecho" en la barra de título
o el caption del formulario (en este caso es: TForm1) en Delphi.

Pregunta:
¿Cómo puedo hacer para que detecte el clic derecho de cualquier ventana y no sólo del formulario (TForm1) de Delphi?

- Digamos, transformar TForm1 en la ventana activa. Muchas gracias desde ya.


private
procedure WMNCRBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;
end;

implementation

procedure TForm1.WMNCRBUTTONDOWN(var msg: TMessage);
begin
if msg.wParam = HTCAPTION then Caption := 'Clic derecho';inherited;
end;

[dec]

Hola,

Busca información en este mismo foro (http://www.clubdelphi.com/foros/search.php) sobre "hook teclado". (No pongo "hook de teclado" porque si buscas así en el foro habrá problemas con el "de").

[bucanero]

También puedes utilizar el componente ApplicationEvents, insertalo en tu ventana principal y en el evento OnMessage pon el siguiente código:

if Msg.message = 513 then
Memo1.Lines.Add('MOUSE DOWN')
else if Msg.message = 514 then
Memo1.Lines.Add('MOUSE UP');


Con este componente podrás capturar todos los messages que reciba tu aplicación, y tendrás que filtrar por los que realmente te interesan.