[Resolvido] Esconder FORM Principal

[Hell_ 0]

Em que evento devo colocar os

procedimentos para esconder e deixar o form

invisivel?

 

Em onShow, onActive e onPaint

da erro.

Em onCreate, não funcionou.

[FMilioni 0]

Você pode fazer uma coisa bem simples. Vá em Project->View Source

Vai aparecer algo do tipo:

 

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Você apenas adciona uma linha, depois do CreateForm:

 

Application.ShowMainForm := false;

Ficando assim...

 

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := false;
  Application.Run;
end.

Para mostrar a janela depois, só chamar o evento Show da janela. Exemplo:

 

Form1.Show;

[Hell_ 0]

Obrigado pela atenção, porem,

eu precisaria de algo como, por exemplo:

Eenho um arquivo INI com a informação se

o form principal deve vir oculto ou não.

 

Ou seja, ao executar o aplicativo,

ele ler o arquivo INI

e depois precisa verifica se deve ou não ocultar o form principal.

 

Como implementaria dessa maneira?

[FMilioni 0]

Faria uma ini chamada config.ini da seguinte maneira:

[Config]
State=1

State = 1 ( Mostra a Janela )

State = 0 ( Não mostra a Janela )

 

O código eu faria da seguinte maneira:

program Project1;

uses
  Forms,IniFiles,SysUtils,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  INI : TIniFile;

function EstadoJanela: Boolean;
var
  Path : String;
begin
  Path := ExtractFilePath(Application.ExeName);

  INI := TIniFile.Create(Path+'config.ini');
  Result := INI.ReadBool('Config','State',true);
  INI.Free;
end;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);

  Application.ShowMainForm := EstadoJanela;

  Application.Run;
end.

[Hell_ 0]

Não sabia que se podia criar funções dentro da fonte do projeto...

Posso chamar funções de outras units?

 

Obrigado mais uma vez pela atenção.

[FMilioni 0]

É possível chamar sim, desde que esteja declarada na unit que você criá-la.

[Hell_ 0]

Funcionou bem como você me explicou.

Agradeço a toda sua disponibilidade e atenção.

 

Obrigado.