Hola Claudio, a ver si este ejemplo te ayuda
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if not(Timer1.Enabled) then
begin
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