Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   beep en showmodal (https://www.clubdelphi.com/foros/showthread.php?t=58203)

coso 11-07-2008 21:24:59

beep en showmodal
 
Hola, tengo un problemilla que no hay manera...

Resulta que desde una form (nueva factura) llamada con showmodal llamo a otra (lista de articulos) tambien con showmodal, y una vez se pulsa un articulo, aun me aparece otra (numero de unidades) tambien en showmodal.
Pues bien, una vez realizado todo esto, me suena un beep: es el beep q suena cuando en una ventana showmodal, estas tocando otra cosa: en este caso, cuando he tocado _nuts estando _lart en showmodal...
Como resuelvo para que no suene? como se cogeria el mensaje del 'beep' para anularlo?

Código Delphi [-]

procedure T_lart.DBGrid1DblClick(Sender : TObject);
begin
        if Pick_up then Picked;
// despues de esta linea
end;

// con el F7, cuando se procesan el resto de mensajes de _lart. 
// exactamente en TCustomForm.Release de Forms.pas
//...
// repeat
//   Application.HandleMessage;
//   if Application.FTerminate then ModalResult := mrCancel else
//     if ModalResult <> 0 then CloseModal;
//  until ModalResult <> 0;


procedure T_lart.Picked;
begin
      if _nuts.Mostra('1') <> mrOk then exit;
      Insertar_picked(_nuts.Unitats);
end;

:confused::confused: cualquier sugerencia sera bienvenida. Gracias por adelantado
Pick_up es un boolean que en este caso es true
_nuts es el form que se llama con showmodal (dentro de Mostra(integer))
Insertar_picked crea un query y inserta el articulo escogido

felipe88 12-07-2008 00:10:32

Pues estare mas perdido que un moco en un oido...:D apaga los bafles...:rolleyes::D

No enserio, me dio por buscar algo y encontre que puedes modificar el beep de windows mediante el registro por la clave
Cita:

HKEY_CURRENT_USER\Control Panel\Sound
y me imagino jugar con el yes y el no del mismo...:rolleyes:... creo :D

coso 12-07-2008 00:13:07

si fueran mis baffles...pero son los del cliente :o gracias, es una idea, mañana la pruebo. saludos


La franja horaria es GMT +2. Ahora son las 13:47:19.

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