Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-01-2005
RiverPlate RiverPlate is offline
Miembro
 
Registrado: dic 2004
Posts: 17
Poder: 0
RiverPlate Va por buen camino
Question Uso del Timer y un Edit

Hola Gente, como les va?.. tengo la siguiente duda, estoy usando un timer para llevar el control de cuanto tiempo hace que se utiliza una aplicación.
Mi pregunta es que quiero que en el edit figure en formato tipo hora:min:seg (o por lo menos min:seg) o sea: 10:00 , 10:01 , 10:02, etc

Como lo puedo realizar??, ya que si incremento el edit1.text pasandolo a integer obviamente no tengo registro de la hora sino un contador, y creo que debe haber algun tipo de datos que me permita hacer esto y no tener que andar codificando un procedure o function para tal fin.

Espero que me sepan ayudar, desde ya muchas gracias..
Responder Con Cita
  #2  
Antiguo 22-01-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Aunque pienso que sería mejor utiliar un Tlabel, aquí tienes un ejemplo:
Código Delphi [-]
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Edit1.Text:=TimeToStr(Time);
  end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 22-01-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Bueno creo que esto otro lo que pides:
Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls;
 
 type
   TForm1 = class(TForm)
     Timer1: TTimer;
     Edit1: TEdit;
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
   Inicio:TTime;
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 Edit1.Text:=TimeToStr(Time - Inicio);
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
 Inicio:=Time;
 end;
 
 end.
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #4  
Antiguo 22-01-2005
RiverPlate RiverPlate is offline
Miembro
 
Registrado: dic 2004
Posts: 17
Poder: 0
RiverPlate Va por buen camino
Talking Solucionado

Marcos muchas gracias, tan simple como eso, pero bueno... se ve que no estaba muy acostumbrado a usar los timers.

desde ya muchas gracias por la respuesta..

P.D: si la idea es usarlo con un label me salio edit sin querer
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:35:37.


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
Copyright 1996-2007 Club Delphi