• serg
  • Member
  • Offline
  • Registered: 2014-08-27
  • Posts: 18

Topic: Убрать панель сверху

Есть ли возможность убрать панель сверху?
http://i67.fastpic.ru/big/2014/0830/11/8d10756a62fa4d6415dc35547ac72611.png
Заранее спасибо.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Убрать панель сверху

Можно,

   Form1.mniFile.Visible := False;
   Form1.mniOptions.Visible := False;
   Form1.mniAbout.Visible := False;
Dmitry.
  • serg
  • Member
  • Offline
  • Registered: 2014-08-27
  • Posts: 18

Re: Убрать панель сверху

Спасибо большое

  • Registered: 2014-03-25
  • Posts: 106

Re: Убрать панель сверху

А отдельный пункт в меню можно удалить - например в Инструменты убрать Открыть дизайнер отчетов?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Убрать панель сверху

atempbox

Form1.mniReport.Visible := False;
Dmitry.
  • Pavel
  • New member
  • Offline
  • Registered: 2014-08-26
  • Posts: 7

Re: Убрать панель сверху

Подскажите, эти строки нужно в ini прописывать?

   Form1.mniFile.Visible := False;
   Form1.mniOptions.Visible := False;
   Form1.mniAbout.Visible := False;

7 Reply by serg (edited by serg 2014-09-02 07:05:45)

  • serg
  • Member
  • Offline
  • Registered: 2014-08-27
  • Posts: 18

Re: Убрать панель сверху

Эти строки в проекте прописывать в раздел Script
а точнее будет так
:

begin
   Form1.mniFile.Visible := False;
   Form1.mniOptions.Visible := False;
   Form1.mniAbout.Visible := False;
end.
  • Pavel
  • New member
  • Offline
  • Registered: 2014-08-26
  • Posts: 7

Re: Убрать панель сверху

т.е. на основной форме создать скрипт, и в него вписать строки?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Убрать панель сверху

Pavel
сделал для вас проект с примером.

Post's attachments

Attachment icon Test Hide TMenu.zip 1.38 kb, 615 downloads since 2014-09-02 

Dmitry.
  • Pavel
  • New member
  • Offline
  • Registered: 2014-08-26
  • Posts: 7

Re: Убрать панель сверху

Спасибо smile