Все очень просто: Сделайте примерно

Решение 3

Это работает с NT 4 и Delphi 2.01. Все очень просто: Сделайте примерно так:

beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Form1.Show;Application.Minimize;Application.Run;end.

В этом случае в обработчиках событий OnCreate и OnShow не должно быть процедур, изменяющих статус окна.

Решение 4

Когда в Program Manager я выбираю опцию "Run Minimized", чтобы заставить мое Delphi приложение стартовать в свернутом состоянии, то, похоже, мое приложение просто игнорирует сей флаг и запускается в нормальном режиме. Почему так и как это исправить?

Объект Delphi Application создает скрытое "application window," и это окно, а не ваша главная форма, отдает команду на показ приложения в свернутом состоянии. Для того, чтобы это обойти, создайте примерно такой обработчик события главной формы OnCreate:

procedure TForm1.FormCreate(Sender: TObject);{$IFDEF WIN32} { Delphi 2-X.0 (32-бит) }varMyInfo: TStartUpInfo;{$ENDIF}begin{$IFDEF WIN32} { Delphi 2-X.0 (32-бит) }GetStartUpInfo(MyInfo);ShowWindow(Handle, MyInfo.wShowWindow);{$ENDIF}{$IFDEF WINDOWS} { Delphi 1.0 (16-бит) }ShowWindow(Handle, cmdShow);{$ENDIF}end;

Другими словами, для 16-бит достаточно флага cmdShow в ShowWindow. Для 32-бит необходимо получить "StartUp"-информацию вызовом процедуры GetStartUpInfo, которая заполняет запись TStartUpInfo, и затем передать TStartUpInfo.wShowWindow в ShowWindow.

[000270]

Содержание Назад

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий