4

このスレッドで提供されたヘルプとアドバイスのおかげで、Microsoft リボン フレームワークを使用して初めて Delphi 以外のリボンを作成しました。

A.Bouchez がそのスレッドに投稿したガイドに従って、プロジェクトをコンパイルし、Microsoft リボンの動作を確認することができました。

ただし、コマンドの実行時にリボンを入力に応答させることができないようです。

私は常に TActionManager を使用してイベントを管理しているので、TActionManager からリボンに各 TAction をリンクするだけで済みます。上記のリンクのチュートリアルに従って、次のことを試してみましたが、役に立ちませんでした。

// actNew is the name of a TAction set in the TActionManager
procedure TfrmMain.actNewExecute(Sender: TObject);
begin
  ShowMessage('execute new event');
end;

procedure TfrmMain.CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
begin
  inherited;

  case Command.CommandId of
    cmdNew: // cmdNew was defined in the Ribbon Designer
    begin
      // link the ribbon commands to the TActions
      actNew.OnExecute(Command as TUICommandAction); // obviously will not work
    end;
  end;
end;

では、TAction をリボンに割り当てるにはどうすればよいでしょうか。

ありがとう。

4

1 に答える 1

2

提供されたサンプルを見て、コマンドを実行する方法を見つけました (どのように見逃したのかわかりません!)。イベントは TActions とは独立して定義する必要があるようです。

リボンのコマンドを呼び出すために使用されるプロシージャ内で Actions OnExecute ハンドラーをリンクすることで可能です。例:

private
  CommandNew: TUICommandAction;
  procedure CommandNewExecute(const Args: TUICommandActionEventArgs);

  procedure UpdateRibbonControls;
strict protected
  procedure RibbonLoaded; override;
  procedure CommandCreated(const Sender: TUIRibbon; const Command: TUICommand); override;

implementation

procedure TfrmMain.RibbonLoaded;
begin
  inherited;

  Color:= ColorAdjustLuma(Ribbon.BackgroundColor, -25, False);
  UpdateRibbonControls;
end;

// set command states here
procedure TfrmMain.UpdateRibbonControls;
begin
  if Assigned(CommandNew) then
    CommandNew.Enabled:= True;
end;

// assign the commands
procedure TfrmMain.CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
begin
  inherited;

  case Command.CommandId of
    cmdNew: // command id defined in the ribbon designer
    begin
      CommandNew:= Command as TUICommandAction;
      CommandNew.OnExecute:= NewExecute;
    end;
  end;
end;

// command events
procedure TfrmMain.NewExecute(const Args: TUICommandActionEventArgs);
begin
  actNew.OnExecute(nil); // < this is calling the event code from a TAction      
end;

リボン フレームワーク内の Samples フォルダーは、これをより明確に示しています。フレームワークはここにあります: http://www.bilsen.com/windowsribbon/index.shtml

于 2011-06-15T22:00:23.223 に答える