Capturar click del boton medio del mouse

[gonzalovw]

Estimados,
Antes que todo gracias por aceptarme. Hace muy poco me todo hacer modificaciones en una aplicacion de windows hecha en delphi y la verdad que es la primera vez que hago algo en este lenguaje.
El inconveniente que tengo es hacer que el click del boton medio del mouse me dispare la accion de un boton sin importar en la posicion de la pantalla que me encuentre.
Estuve leyendo varias cosas y todos hablan de Hook pero la verdad es que probe varios ejemplos y no logro hacer que detecte cuando presiono el boton.

Espero puedan ayudarme!
Desde ya muchas gracias!!!
Gonzalo.

[roman]

No se entiende bien tu pregunta. Un botón tiene el evento OnClick que se ejecutará siempre que hagas clic en el botón y sólo se puede hacer clic sobre un botón cuando el ratón está sobre él.

// Saludos

[gonzalovw]

En donde capturo todos lo eventos le agregue lo siguiente:

Código Delphi [-]
Case Msg.message of
    WM_MBUTTONDOWN:

Ahi capturo el click del boton del medio y luego ejecuto el click del boton!

Código Delphi [-]
procedure TfPrincipal.eventosMessage(var Msg: tagMSG; var Handled: Boolean);
var
  err: EdsError;
  archivo,archivoRaw,extFile,destino: string;
begin
  Handled := false;
  //if (Msg.message = WM_CANCELJOURNAL) and FHookStarted then
  //  JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, 0, 0);
  Case Msg.message of
    WM_MBUTTONDOWN:
      begin
        if bCapturar.Enabled then
          bCapturar.Click
      end;
    WM_USER + 1: { Property Event occurred } // Por ahora no manejo los cambios de propiedades
      begin
        if Msg.wParam = kEdsPropertyEvent_PropertyChanged then
        // get property
        begin
          FAppMaster.getProperty(Msg.lParam);
          // UpdateProperty( Msg.lParam );
          Handled := true;
        end;

        if Msg.wParam = kEdsPropertyEvent_PropertyDescChanged then
        // get property desc
        begin
          FAppMaster.getPropertyDesc(Msg.lParam);
          // UpdatePropertyDesc( Msg.lParam );
          Handled := true;
        end;
      end;

    WM_USER + 2: { Object Event occurred }
      begin
        archivo := 'ImgTmp' + IntToStr(camActiva) + '.jpg';
        archivoRaw := 'RawTmp' + IntToStr(camActiva) + '.cr2';
        err := FAppMaster.getImageData(EdsBaseRef(Msg.lParam), pTemp, archivo, archivoRaw, extFile);
        if extFile = '.CR2' then
              procesarImagenRecibidaRaw(archivoRaw, camActiva, nFoto);
        Application.ProcessMessages;
        if err <> EDS_ERR_OK then
          MessageDlg('Error en la recepción de imagen (' + IntToStr(err) + ')',
            mtError, [mbOk], 0)
        else
        begin
          if not enCaptura then
          begin
// no hace nada... esto deberia eliminar los disparos manuales...
          end
          else
          begin
            if not enTest and not enRepeticion then
              nFoto := nFoto + 1;
            procesarImagenRecibida(archivo, camActiva, nFoto);
          end;
        end;
        enCaptura := false;
        Handled := true;
      end;

    WM_USER + 3: { Progress callback event }
      begin
        ajustarProgreso(Msg.wParam);
        Handled := true;
      end;
  end;

end;

Saludos!
Gracias!!