Показать сообщение отдельно
  #2  
Старый 28.03.2018, 12:10
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Код:
procedure TConfigForm.FormCreate(Sender: TObject);
begin
 Application.OnMinimize:= AppMinimize;
 Application.OnRestore := AppMinimize;
 Application.Minimize;
 AppMinimize(@Self);
end;

procedure TConfigForm.AppMinimize(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
end;
©Drkb::00459
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием