Ver Mensaje Individual
  #2  
Antiguo 22-11-2005
Avatar de Enan0
Enan0 Enan0 is offline
Miembro
 
Registrado: may 2004
Ubicación: Argentina
Posts: 565
Reputación: 20
Enan0 Va por buen camino
Código Delphi [-]
   
    Application.Initialize;
    Application.CreateForm(TmoduloDatos, moduloDatos);
    frmInicio:=TfrmInicio.Create(nil);
    if frmInicio.ShowModal = mrok then
     begin
         Application.CreateForm(TfmPrincipal, fmPrincipal);
         Application.Run;
     end
     else
       Application.Terminate;
   

Mira no veo bien cual es el form que tiene el logue, pero lo que podes haces es un timer, enlazado al evento Onmousemove.. (creo que esasi) que se active cuando el mouse deja de moverse.. (es decir, lo dejas activo siempre pero pones un variable global que haga de control) despues de N veces que no se puso a cero, cuando pasa por el evento Ontime. mostras nuevamente el formulario de logueo..

Mas o menos como esto:
Código Delphi [-]
 var
   Form1: TForm1;
   vTimer:integer;
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
 vTimer:=0;
 Timer1.Enabled :=false;
 Timer1.Interval:=60000;//un minuto
 Timer1.Enabled :=true;
 end;
 
 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   vTimer:=0;
 end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 If vTimer=> 5 then
   ShowMessage('Debes reloguearte')
 else
   inc(vTimer);
 
 end;
 
 end.

Última edición por Enan0 fecha: 22-11-2005 a las 11:56:24.
Responder Con Cita