Форма остаётся видимой при Visible=False

[Viteef]

Если установить form1.visible:=false; и запустить программу, окно все

равно видимое.

Почему?

[OrdJONY]

Form1 наверное главная форма? И ты применяеш это свойство при создании формы?
Например я делал таймером... Но всеравно форма мелькала

[Сильванович Михаил]

Т.к., по всей видимости, это главная форма. Поставь на OnShow (или OnCreate) Form1.Hide. Но, что-то странное все равно... Никогда таких проблем у меня не было.

[Viteef]

Сообщение от Viteef

Если установить form1.visible:=false; и запустить программу, окно все

равно видимое.

Почему?

Да, форма главная.

[Shuraken]

Тогда лучше написать так:
Application.ShowMainForm := false;

[Andr]

или Form1.AlphaBlend := True;
Form1.AlphaBlendValue := 0;

[Viteef]

Сообщение от Andr

или Form1.AlphaBlend := True;
Form1.AlphaBlendValue := 0;

Не-а, не проходит.

В общем выпутался я, спасибо за помощь.

[Alar]

Сообщение от Viteef

Не-а, не проходит.

В общем выпутался я, спасибо за помощь.

В чём была проблема?

[zvygin1964]

Да, так сработало:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend := True;
Form1.AlphaBlendValue := 0;
end;

,- действительно Form1. стала невидимой. Главная она или нет, не знаю, но

var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
{$R Resources.RES}

[Алексей_2012]

она и стала, просто прозрачность

вроде что-то подобное было на форуме

   procedure Tform1.AppMinimize(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainform:=false;
 Application.OnMinimize:=AppMinimize;
  Application.OnRestore:=AppMinimize;
  Application.Minimize;
  AppMinimize(@Self);
end;

А вот через Таймер так можно, у меня сработало.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
timer1.Interval:=500;
timer1.Enabled:=True;
end;

А вот так показать другую форму, после скрытия первой

procedure TForm1.FormHide(Sender: TObject);
begin
form2.Show;
end;

А это чтоб закрыть все приложение после нажатия на крестик формы 2:D дабы добить ваши возможные вопросы:D

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;