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;
Case Msg.message of
WM_MBUTTONDOWN:
begin
if bCapturar.Enabled then
bCapturar.Click
end;
WM_USER + 1: begin
if Msg.wParam = kEdsPropertyEvent_PropertyChanged then
begin
FAppMaster.getProperty(Msg.lParam);
Handled := true;
end;
if Msg.wParam = kEdsPropertyEvent_PropertyDescChanged then
begin
FAppMaster.getPropertyDesc(Msg.lParam);
Handled := true;
end;
end;
WM_USER + 2:
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
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:
begin
ajustarProgreso(Msg.wParam);
Handled := true;
end;
end;
end;
Saludos!
Gracias!!