Как сделать главную форму полностью невидимой

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Я пытаюсь создать приложение, помещающее во время запуска иконку в системную область панели задач c надлежащим контекстным меню. Тем не менее приложение все еще остается видимым в панели задач. Использование Application.ShowMainForm:=False оказывается недостаточным.

Я тоже столкнулся с этой проблемой, но, к счастью, нашел ответ. Вот маленький код, который классно справляется с проблемой.

procedure TMainForm.FormCreate(Sender: TObject);

begin

Application.OnMinimize:=AppMinimize;

Application.OnRestore:=AppMinimize;

Application.Minimize;

AppMinimize(@Self);

end;

procedure TMainForm.AppMinimize(Sender: TObject);

begin

ShowWindow(Application.Handle, SW_HIDE);

end;

{/codecitation}

Добавить комментарий