Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Как заставить приложение запускаться в минимизированном состоянии 2



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

     procedure TForm1.FormCreate(Sender: TObject);
     begin
       if CmdShow = SW_SHOWMINNOACTIVE then WindowState := wsMinimized;
     end;

// Hапример, если необходимо запускать приложение либо минимизированным, либо
// максимизированным, используйте следующий код:

     procedure TForm1.FormCreate(Sender: TObject);
     begin
       if CmdShow = SW_SHOWMINNOACTIVE then WindowState := wsMinimized
       else WindowState := wsMaximized;
     end;


           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011