Contador de Apertura de Formulario

[[AgustinOrtu]]

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