[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;