Ver Mensaje Individual
  #1  
Antiguo 11-07-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
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;

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
Responder Con Cita