Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-08-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 27
Delphius Va camino a la fama
¿estás seguro? Prueba con esto:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HoraInicial: TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  HoraInicial := Now;
  Timer1.Enabled := true;
  Button2.Enabled := True;
  Button1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := 'El cronometro cuenta : ' + TimeToStr(Now - HoraInicial);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
  Button1.Enabled := True;
  Button2.Enabled := True;
end;

end.

Debería funcionar. A me funciona apropiadamente.
Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #2  
Antiguo 03-08-2008
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
amigo delphius todavia sigue iniciando asi 12:00:00 pero creo que el error tiene que ver con la zona horaria que tengo
Responder Con Cita
  #3  
Antiguo 03-08-2008
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
amigo delphius ya resolvi el problema era justamente eso la zona horaria que tenia
Responder Con Cita
  #4  
Antiguo 03-08-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Poder: 22
FGarcia Va por buen camino
Bueno, ya resolviste tu problema... de todos modos aqui esta mi solucion. Tiene un pequeño problema con la actualizacion de la etiqueta (parpadeo) pero eso se soluciona con algo llamado Double buffered me parece, solo que no se como se implementa.
Archivos Adjuntos
Tipo de Archivo: zip Cronometro.zip (7,2 KB, 79 visitas)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como hacer un cronometro Nicoasd Varios 6 26-02-2007 17:46:02
Como creo un cronometro en delphi VNNO Varios 5 24-08-2006 11:14:36
Crear un cronometro tannyk Varios 4 21-12-2005 14:59:03
Como leer un registro completo StartKill Conexión con bases de datos 1 26-02-2004 09:32:55
Como realizar un cronómetro juanchi Internet 1 21-09-2003 20:47:08


La franja horaria es GMT +2. Ahora son las 18:06:05.


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