Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Uso del Timer y un Edit (https://www.clubdelphi.com/foros/showthread.php?t=17815)

RiverPlate 22-01-2005 15:01:42

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..:cool:

marcoszorrilla 22-01-2005 15:07:21

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.

marcoszorrilla 22-01-2005 15:10:55

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.

RiverPlate 22-01-2005 18:50:30

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 :p


La franja horaria es GMT +2. Ahora son las 10:23:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi