• oleg
  • Member
  • Offline
  • Registered: 2023-09-01
  • Posts: 31

Topic: Вывод информации вместо меню

Перечитал весь форум, но так и не нашел, как вывести определённую информацию вместо меню. Ну или рядом с меню. К примеру что то типа этой информации Caption := 'Demo version. Time left: ' + IntToStr(iDays) +' days.'; Как вообще это делается?

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: Вывод информации вместо меню

"Вместо меню"

1. Скрыть стандартное меню
2. В верхней части формы разместить метку, у которой caption := 'Что нужно, то и написать'


"Рядом с меню"

1. Скрыть стандартное меню,
2. В верхней части разместить панель
3 На панели создать своё главное меню на панели (как именно - вариантов несколько)
4 На панели разместить метку, у которой caption := 'Что нужно, то и написать'


Главный вопрос - зачем? ))))
Обычно приведенную вами информацию размещают непосредственно в заголовке формы.

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • oleg
  • Member
  • Offline
  • Registered: 2023-09-01
  • Posts: 31

Re: Вывод информации вместо меню

k245 wrote:

Обычно приведенную вами информацию размещают непосредственно в заголовке формы.

Хорошо. В таком случае, как в заголовке формы вывести?

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: Вывод информации вместо меню

oleg wrote:
k245 wrote:

Обычно приведенную вами информацию размещают непосредственно в заголовке формы.

Хорошо. В таком случае, как в заголовке формы вывести?

Form1.Caption := 'Привет мир!';

Скрыть меню главного окна (Файл, Инструменты, О Программе) https://myvisualdatabase.com/forum/view … hp?id=1091
Создание собственных пунктов меню на главной форме https://myvisualdatabase.com/forum/view … hp?id=1092

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: Вывод информации вместо меню

oleg wrote:
k245 wrote:

Обычно приведенную вами информацию размещают непосредственно в заголовке формы.

Хорошо. В таком случае, как в заголовке формы вывести?

В обработчике события OnShow нужной формы добавляете скрипт:

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Caption := 'Demo version. Time left: ' + IntToStr(iDays) +' days.';
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • oleg
  • Member
  • Offline
  • Registered: 2023-09-01
  • Posts: 31

Re: Вывод информации вместо меню

Спасибо Владимир. Спасибо Константин. Не даром говорят - Когда знаешь, всё просто.