• Registered: 2015-05-30
  • Posts: 8

Topic: Открытие программы на "Полный экран"

Скажите можно ли написать скрипт который запускал бы программу на полный экран, без бара и кнопок закрыть и свернуть?

  • Registered: 2014-08-02
  • Posts: 917

Re: Открытие программы на "Полный экран"

Hello Combelg

IS this code OK for you ?

procedure Form1_OnShow (Sender: string; Action: string);
begin
     Form1.BorderStyle := bsNone;
     if Form1.WindowState=wsNormal then
       begin
        Form1.WindowState:=wsMaximized;
        end;
end;


Otherwise you can also place it beetwen  Begin ... End.

JB

  • Registered: 2015-05-30
  • Posts: 8

Re: Открытие программы на "Полный экран"

It's work! Thank you! smile