К сожалению при создании окна приложения ни в одном из первых событий (OnCreate, OnShow, OnActivate) нет доступа к свойству Visible. Использование функции ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но при этом не избежать кратковременного мерцания окна перед "исчезновением"):

procedure TForm1.OnActivate(Sender: TObject);  
begin  
  ShowWindow(Handle, SW_HIDE);  
end;  

чтобы сделать окно опять видимым необходимо вызвать ту же функцию, но уже с другим параметром:

ShowWindow(Handle, SW_SHOW);  

Если Вам лень пользовать API-функции или неприятно видеть мерцание, то есть другой, весьма интересный способ сокрыть окно приложения от любопытствующих глаз:

procedure TForm1.OnCreate(Sender: TObject);  
begin  
  Left := Screen.Width;  
end; 

Окно создается видимым, но находится за пределами экрана!

Добавлено: 31 Июля 2018 22:03:31 Добавил: Андрей Ковальчук Нравится 0

Добавить