• Registered: 2018-03-04
  • Posts: 377

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

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

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

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

  • Registered: 2014-05-21
  • Posts: 108

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

А разве не работает просто поменять на 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;
  • Registered: 2018-03-04
  • Posts: 377

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

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

  • Registered: 2014-05-21
  • Posts: 108

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

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;