Обновлено: 01 декабря, 2018

Скрываем форму при старте приложения в Delphi

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

(11 оценок, среднее: 5,00 из 5)

Загрузка...