[Hack M]

Добрый день уважаемые форумчане !

Проблема: Имеется одна форма TForm1. Необходимо при двойном нажатии на ярлык программы (для запуска) запустить её скрыто.

Делал Form1.hide; в FormCreate результата 0.

Делал Form1.hide; по минимальному интервалу таймера, прога когда запустилась промелькнула, а это уже не хорошо.

Пытался вынести программу за пределы экрана (Form1.Left=2000), но при запуске она возвращается на исходную позицию (Центр экрана)

Из панели задач скрыл, а вот с самой формой проблемы.

Прошу вас дать мне полный вариант решения.
Всем заранее благодарен.

С ув. Frost

[ALexandr555]

Application.ShowMainForm:=false; я так понял это тебе надо

[Hack M]

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

Application.ShowMainForm:=false; я так понял это тебе надо

Возможно, Александр, но если вас не затруднит подскажите куда это вставить, чтобы при запуске окно скрыто было.

[Hack M]

Вопрос был решен с помощью гугла.

В Object Inspector - вкладка Events - параметр OnShow - выбираем CreateForm

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false;
ShowWindow(application.Handle,SW_HIDE);
Application.Run;
  end;

[ALexandr555]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false;
ShowWindow(application.Handle,SW_HIDE);
Application.Run;
  end;

ну я же так и сказал достаточно только этого кода в красном

[einstein]

Сообщение от Hack M

Вопрос был решен с помощью гугла.

В Object Inspector - вкладка Events - параметр OnShow - выбираем CreateForm

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false;
ShowWindow(application.Handle,SW_HIDE);
Application.Run;
  end;

большего бреда я не видел

[Hack M]

то есть ? что там не так ?
Гугл мне сказал делать так ))

Да и работает всё =)

[NumLock]

вообще-то все всегда писали это в dpr:

Код:

program Project1;

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

{$R *.res}

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

[Ama]

А я делаю проще. На форме меняю свойства: AlphaBlend:= true; и AlphaBlendValue:= 0, и если надо будет ее показать, то меняю AlphaBlendValue

[NumLock]

[Ama]

Сообщение от Hack M

Добрый день уважаемые форумчане !

Проблема: Имеется одна форма TForm1. Необходимо при двойном нажатии на ярлык программы (для запуска) запустить её скрыто.



Из панели задач скрыл, а вот с самой формой проблемы.

Прошу вас дать мне полный вариант решения.
Всем заранее благодарен.

С ув. Frost

Судя по вопросу Hack M, он форму-то с TaskBar'a скрыл

[NumLock]

я понял и поэтому почему-то боюсь за его вариант решения к тому же вся задача решается 1 строчкой кода. и тема по идее закрыта на 2-ом посте. да и скрывать форму используя AlphaBlend... ...а если Windows 95?