Contador de Apertura de Formulario

[Claudio1996]

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

[ecfisa]

Hola Claudio1996, bienvenido a Club Delphi :)

Como es costumbre con los nuevos miembros, te invitamos a leer nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).


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

[AgustinOrtu]

Hola Claudio, a ver si este ejemplo te ayuda


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

[Casimiro Notevi]

Lo he movido a "Varios", y para otra vez procura poner un título descriptivo a tu pregunta, gracias y bienvenido :)

[nlsgarcia]

Claudio1996,


...como puedo crear un contador de 5 segundos a 0 y despues que me abra otro form...

¡Bienvenido al Club Delphi! :D

Revisa este código:

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:

http://i42.photobucket.com/albums/e305/nlsgarcia/Count_zpsw1obkth4.gif

Espero sea útil :)

Nelson.