Программа Delphi отображается в полноэкранном режиме без строки заголовка, закрывающей весь экран (подходит для заставок)

Программа Delphi отображается в полноэкранном режиме без строки заголовка, занимающей весь экран. Это полезно при создании промышленных компьютеров или заставок, поэтому запишите ее.

Скопируйте код кода следующим образом:

процедура TMainFrm.FormCreate(Отправитель: TObject);

начинать

с MainFrm начнем

{Форма позиции}

Верх := 0 ;

Слева := 0 ;

{Перейти в полноэкранный режим}

BorderStyle := bsNone;

WindowState: = wsmaximized;

ClientWidth := Screen.Width ;

ClientHeight := Screen.Height;

Обновить;

SetForegroundWindow (Дескриптор);

SetActiveWindow(Application.Handle);

конец;

конец;