[cadil]

На поле формы отображается меню. Оно необходимо только при начальной настройке программы.
Помогите, пожалуйста, написать команду, чтобы при компиляции программы меню было невидимым и было видимым при выполнении команды, по аналогии, например,

Код:

Label1.Visible:=True;

Заранее благодарю.

[NumLock]

так если меню не нужно можно его не создавать

[cadil]

Сообщение от NumLock

так если меню не нужно можно его не создавать

Меню необходимо для начальной настройки программы. В моем случае - для подключения СОМ-порта.

[Alegun]

Сообщение от cadil

Меню необходимо для начальной настройки программы...

Тогда можно спрятать так

Код:

var
 i: integer;
begin
 with MainMenu1 do
  for i := 0 to Items.Count-1 do
   Items[i].Visible:= not Items[i].Visible;
end;

повторный вызов отобразит снова

[cadil]

Сообщение от Alegun

Тогда можно спрятать так
...
повторный вызов отобразит снова

Благодарю! Реализовал Ваше предложение.
Правда, в моем случае есть маленький недостаток. Процедуры вывода-скрытия меню и других элементов организованs через двойной клик и клик по полю формы. Чтобы форму привести к исходному состоянию - приходится делать 5-6 кликов! Это многовато ...
Новая идея такая - отказаться от меню и перейти на выпадающий список, который легче спрятать.

Помогите, пожалуйста, переписать эту команду с MainMenu1 на ComboBox1:

Код:

for i:=1 to 4 do MainMenu1.Items[0].Items[i-1].Checked:=false;

как тут:

Код:

var n:Integer;
begin
 n:=0;
 if ComboBox1.ItemIndex = 0 then n:=1;
 if ComboBox1.ItemIndex = 1 then n:=2;
 if ComboBox1.ItemIndex = 2 then n:=3;
 if ComboBox1.ItemIndex = 3 then n:=4;
 if UsedCOM<>n
  then Open_COM(n);
end;

[Alegun]

Какая-то ересь, должно быть

Код:

...

for i:=0 to 3 do MainMenu1.Items[0].Items[i].Checked:=false;
...
var n:Integer;
begin
 n:= ComboBox1.ItemIndex + 1;
 if UsedCOM <> n then Open_COM(n);
end;

[cadil]

Сообщение от Alegun

Какая-то ересь, должно быть

Я, похоже, невнятно объяснил.
Требуется команду

Код:

for i:=1 to 4 do MainMenu1.Items[0].Items[i-1].Checked:=false;

написать для ComboBox1.
MainMenu1 - планирую исключить.

[Alegun]

Сообщение от cadil

Требуется команду...написать для ComboBox1...

Напрямую не выйдет т.к. итемы у ComboBox - это обычные строки, но туда можно внедрить рисунок, вот пример псевдо CheckComboBox

[Rosenkrantz]

По крайней мере, вот этот код точно можно заменить

Код:

if ComboBox1.ItemIndex = 0 then n:=1;
if ComboBox1.ItemIndex = 1 then n:=2;
if ComboBox1.ItemIndex = 2 then n:=3;
if ComboBox1.ItemIndex = 3 then n:=4;

на

Код:

if ComboBox1.ItemIndex in [0..3] then
  n := ComboBox1.ItemIndex + 1;

Но, может быть, вы объясните - чего вы хотите получить в итоге всех этих усилий? У меня сильное подозрение, что вы просто изначально выбрали неверный путь и, как следствие, способ реализации.

[icWasya]

А если просто

Код:

 Menu:=Nil;

Или вообще использовать не TMainMenu, а TPopupMenu?

[cadil]

Сообщение от Rosenkrantz

Но, может быть, вы объясните - чего вы хотите получить в итоге всех этих усилий? У меня сильное подозрение, что вы просто изначально выбрали неверный путь и, как следствие, способ реализации.

В термостате, который собираю, я использую цифровой термодатчик фирмы DALLAS-MAXIM. Для продвижения своей продукции фирма выпускает программы с открытым кодом для всей линейки термодатчиков, которые когда-либо выпускались фирмой.
Я пытаюсь адаптировать этот многофункциональный исходник под свои узкие задачи. Практически все уже удалось - кроме как спрятать меню.

[cadil]

Сообщение от Alegun

Напрямую не выйдет т.к. итемы у ComboBox - это обычные строки, но туда можно внедрить рисунок, вот пример псевдо CheckComboBox

Дико благодарен за проделанную работу.
Как будет выглядеть команда

Код:

MainMenu1.Items[0].Items[i-1].Checked:=false;

в переложении на CheckComboBox1?

[Alegun]

Сообщение от cadil

...Как будет выглядеть команда ... в переложении на CheckComboBox1?

Код:

 CheckComboBox1.Items.Objects[i-1]:= nil;

[cadil]

Сообщение от Alegun

Напрямую не выйдет т.к. итемы у ComboBox - это обычные строки, но туда можно внедрить рисунок, вот пример псевдо CheckComboBox

Подкорректировал высланный проект под свои задачи - в итоговую строку должно вставляться ОДНО значение из выпадающего списка и оставаться ОДИН флажок в списке.
Не могу найти - где в проекте активируются флажки (см. вложение - Project2.dpr)? Помогите!

[Rosenkrantz]

Сообщение от cadil

В термостате, который собираю, я использую цифровой термодатчик фирмы DALLAS-MAXIM. Для продвижения своей продукции фирма выпускает программы с открытым кодом для всей линейки термодатчиков, которые когда-либо выпускались фирмой.
Я пытаюсь адаптировать этот многофункциональный исходник под свои узкие задачи. Практически все уже удалось - кроме как спрятать меню.

Я имел в виду - зачем меню нужно? Откройте форму настроек при первом запуске программы, при последующих запусках не открывайте и ничего не нужно прятать, нет? Или я все же чего-то не понимаю?