delphi - 如何使 RibbonApplicationMenuBar 处于非事件/事件状态？

Question

我尝试了许多与 RibbonApplicationMenuBar 相关的方法，以防止用户使用鼠标选择 RibbonApplicationMenuBar，直到从 ini 文件加载项目设置并且启动窗体关闭为止。但除非另有说明，否则似乎没有任何方法可以使 RibbonApplicationMenuBar 处于非事件状态。

帮助文件没有显示有关 RibbonApplicationMenuBar 和帮助 Wiki 的许多属性的信息，因此我无法解决此问题。

procedure TMainForm.FormCreate( Sender: TObject );
begin
  // make theRibbonApplicationMenuBar1 inactive
  RibbonApplicationMenuBar1.Enabled := False;
  RibbonApplicationMenuBar1.Inactive := True;
  RibbonApplicationMenuBar1.Hide;
  RibbonApplicationMenuBar1.AutoFocus := False;
  // read application settings
  ReadIni( AIniFileFilename );
  // show a splash form
  FormSplash := TFormSplash.Create( MainForm );
  // FormSplash.Parent := MainForm;
  FormSplash.Position := poOwnerFormCenter;
  FormSplash.Show;
  FormSplash.Update;
end;


procedure TMainForm.FormShow( Sender: TObject );
begin
  // close the splash form
  FormSplash.RequestClose;
  // Activate the RibbonApplicationMenuBar
  RibbonApplicationMenuBar1.Enabled := True;
  RibbonApplicationMenuBar1.Inactive := False;
  if RibbonApplicationMenuBar1.CanFocus then
    RibbonApplicationMenuBar1.SetFocus;
  RibbonApplicationMenuBar1.AutoFocus := True;
  RibbonApplicationMenuBar1.SelectApplicationButton;
  RibbonApplicationMenuBar1.Show;
end;

除非 RibbonApplicationMenuBar 处于非事件状态，否则用户可以在准备好选择之前选择 RibbonApplicationMenuBar。任何建议表示赞赏。我知道此处显示的所有方法都不正确或可能无序...这只是我尝试防止 RibbonApplicationMenuBar 变为事件状态并可单击，直到启动窗体关闭为止。

谢谢

比尔

Answer 1

将 TRibbon.Enabled 设置为 False 即可禁用所有功能区操作(使用 XE3 测试)。最简单的方法是在设计时将其设置为 False。例如，从启动窗体的 OnHide 将其设置回 True。仅当所有后台事件完成后才关闭启动画面。