Как скрыть форму при старте приложения?

К сожалению при создании окна приложения ни в одном из первых событий (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;

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

Tags: , , , , , ,

Дата создания: Воскресенье, июня 8, 2008 - 13:41 и находится в категории Советы. Вы можете отслеживать ответы через RSS 2.0. Вы можете ответить.

Ответить

Вы должны быть в системе для комментирования.