My Visual Database — Подскажите, а можно как-то обновить главную форму

Re: Подскажите, а можно как-то обновить главную форму

null@example.com (alex842) — Mon, 13 Jul 2020 11:30:26 +0000

procedure Form1_CheckBox1_OnClick (Sender: TObject);
begin
  If Form1.CheckBox1.Checked then
  begin
     Form1.mniFile.Visible := True;
     Form1.mniOptions.Visible := True;
     Form1.mniAbout.Visible := True
  end else
  begin
     Form1.mniFile.Visible := False;
     Form1.mniOptions.Visible := False;
     Form1.mniAbout.Visible := False;
  end;
end;

Re: Подскажите, а можно как-то обновить главную форму

null@example.com (vit007) — Mon, 13 Jul 2020 11:28:12 +0000

Через "батон" работает, значит еще не разобралмя с инструментом "чекбокс". Спасибо

Re: Подскажите, а можно как-то обновить главную форму

null@example.com (alex842) — Mon, 13 Jul 2020 10:45:20 +0000

А разве не работает просто поменять на true?
Сделал кнопку в код поставил это и все работает:

procedure Form1_btnHideMenu_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form1.mniFile.Visible := False;
  Form1.mniOptions.Visible := False;
  Form1.mniAbout.Visible := False;
end;

procedure Form1_btnShowMenu_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form1.mniFile.Visible := True;
  Form1.mniOptions.Visible := True;
  Form1.mniAbout.Visible := True;
end;

Подскажите, а можно как-то обновить главную форму

null@example.com (vit007) — Mon, 13 Jul 2020 10:17:57 +0000

У меня в проге выключены элементы

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

Хочу запилить условие через чек бокс, чтоб можно было зажигать...
Конечно, можно вначале проги сделать еще менюшку выбора роли... но пока не хочется так...