Club Delphi  
    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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-05-2015
Claudio1996 Claudio1996 is offline
Registrado
NULL
 
Registrado: may 2015
Posts: 1
Poder: 0
Claudio1996 Va por buen camino
Contador de Apertura de Formulario

holaa .. buenas soy nuevo en esta pagina.. y tenia una duda acerca de como puedo crear un contador de 5 segundos a 0 y despues que me abra otro form ...creo que se puede hacer con un Timer y TLabel pero me podrian dar algunos ejemplos por favor..
Responder Con Cita
  #2  
Antiguo 22-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Claudio1996, bienvenido a Club Delphi

Como es costumbre con los nuevos miembros, te invitamos a leer nuestra guía de estilo.

Código Delphi [-]
uses Unit2;

var
  Contador : Integer = 5;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := '5';
  with Timer1 do
  begin
    Enabled  := False;
    Interval := 1000; // ms.
    Enabled  := True;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Dec( Contador );
  Label1.Caption := IntToStr( Contador );
  if Contador = 0 then
  begin
    Timer1.Enabled := False;
    if not Assigned( Form2 ) then
      Form2 := TForm2.Create( Self );
    Form2.Show; // ( ó Form2.ShowModal; )
    //...
  end
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 22-05-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Hola Claudio, a ver si este ejemplo te ayuda

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
    if not(Timer1.Enabled) then
    begin
        // el evento OnTimer se disparará a los 5 segundos de activar el timer
        Timer1.Interval := 5 * MSecsPerSec;
        Timer1.Enabled := True;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Timer1.Enabled := False;
    with TForm2.Create(NIL) do
    begin
        ShowModal;
        Free;
    end;
end;

PD: Se me adelanto ecfisa

No deberia ir en otro foro esto?? Creo que no tiene mucho que ver con internet

Última edición por AgustinOrtu fecha: 22-05-2015 a las 07:14:07.
Responder Con Cita
  #4  
Antiguo 22-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Lo he movido a "Varios", y para otra vez procura poner un título descriptivo a tu pregunta, gracias y bienvenido
Responder Con Cita
  #5  
Antiguo 22-05-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Claudio1996,

Cita:
Empezado por Claudio1996
...como puedo crear un contador de 5 segundos a 0 y despues que me abra otro form...
¡Bienvenido al Club Delphi!

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Count : Integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.Interval := 100;
   Count := 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer1.Interval := 1000;
   if (Count > 0) then
   begin
      Label1.Caption := IntToStr(Count);
      Dec(Count);
   end
   else
   begin
      Timer1.Enabled := False;
      Form2.Show;
   end;
end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, Implementa un contador de 5 segundos para la salida de un formulario, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.
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
Apertura PDF lento shoulder Varios 4 17-11-2014 19:09:51
Modo apertura fichero Guillermo80 C++ Builder 2 04-04-2008 12:24:58
Apertura de un archivo de Word luxus OOP 2 20-12-2007 17:23:50
Verificar Apertura de Query anghell77 SQL 4 15-08-2006 07:02:23
Apertura de Varias Tablas luxus Conexión con bases de datos 5 08-09-2005 14:37:34


La franja horaria es GMT +2. Ahora son las 11:25:06.


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