Ver Mensaje Individual
  #3  
Antiguo 26-02-2004
Avatar de Gelmin
Gelmin Gelmin is offline
Miembro
 
Registrado: may 2003
Ubicación: Chinandega-Nicaragua
Posts: 56
Reputación: 22
Gelmin Va por buen camino
Lightbulb Wm_queryendsession.....!

Que tal...agradesco la ayuda proporsionada....! probe lo del queryendsession y sucede lo siguiente: programe que guardara cuando se detectara el mensaje de queryendsession:
Código Delphi [-]
//declaracion del procedimiento Guardar dentro de Tform1
  procedure Guardar(var msg: TMessage); message WM_QUERYENDSESSION;
//definicion
procedure TForm1.Guardar(var msg:Tmessage);
begin
  Thoras.Open; //abrir la tabla THoras
  Thoras.insert;   //modo de insercion
  Thorashoraent.Value:='Hora entrada'; 
  Thorashorasal.Value:='Hora salida';
  Thorascant.Value:=5; //cantidad horas
  Thoras.Post; //guardar
  Thoras.close;  //cerrar la tabla Thoras
end;

Pero no me guardaba nada....! despues decidi hacer eso mismo en el OnCloseQuery del form y ahi si me funciona pero solamente cuando tengo los dos procedimientos el del Queryendsession y el del OnCloseQuery del form ambos hacen exactamente lo mismo abrir la tabla (Thoras.Open...etc!) pero lo que no entiendo es porque tengo que hacer lo mismo en el procedimiento
procedure Guardar(var msg: TMessage); message WM_QUERYENDSESSION;
y en el Evento OncloseQuery del form para que me pueda funcionar....! la verdad no se porque tiene que ser asi...pero bueno si asi funciona asi se queda. Si tienes algun comentario sobre esto diganlo...Saludos Gelmin Martinez (Nicaragua)
__________________
Powered by Gel

Última edición por vtdeleon fecha: 23-12-2009 a las 19:34:25.
Responder Con Cita