Retirar Tela de Splash da Memoria

[luide duarte]

Precisso de ajuda para tira a tela de splash da memoria, ja que mesmo terminando a execução do programa ela continua la.

no form tem um pogressbar,

uma imagem, uma label e um timer

Carrega automaticamente.

grato.

[Fazzioni]

Poste o codigo que fica mais fácil de ajudar

[luide duarte]

unit Un_splash;

interface

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

type
  TJf_sprash = class(TForm)
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Jf_sprash: TJf_sprash;

implementation

uses Un_login;

{$R *.dfm}

procedure TJf_sprash.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:= progressbar1.Position + 1;
label3.Caption := inttostr(progressbar1.Position)+ '%';
if progressbar1.Position=100 then
begin
Jf_sprash.Destroy;
Jf_login.ShowModal
end;
end;

procedure TJf_sprash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
jf_sprash:=nil;
end;

end.

esse é o codigo nao consigo ver nada d+

[Fazzioni]

O Furmulario Flogin? Ja foi criado? Por que c você ainda n usou?

voltando a sua duvida, tente isso

Tire o comando Destroy e coloque um CLOSE, tire o ShowModal e coloque SHOW, ficando assim

begin
progressbar1.Position:= progressbar1.Position + 1;
label3.Caption := inttostr(progressbar1.Position)+ '%';
if progressbar1.Position=100 then
begin
Jf_sprash.close;
Jf_login.Show;
end;
end;

Tire tambem o comando FormClose do TJf_sprash;

no evento onshow do forumario Tjf_login adicione o seguinte codigo:

FreeAndNil(TJf_sprash); 

[luide duarte]

Fiz tudo isso e o programa continuou na memoria, então resolvi deleta a tela de splash e mesmo assim o programa continuou na memoria ae percebe que o problema nao era a tla de splash, então depois de muito pesquisa descobre a solução

TJf_inicio.FormClose(Sender: TObject; var Action: TCloseAction);
 Application.Terminate;

Obrigado pela paciencia Fazzioni

Isso resolveu o problema.