没有TContainedActionLink
时间: 2024-04-15 16:28:25 浏览: 139
非常抱歉给出的答案还是有误。在 Delphi 中,确实没有 TContainedActionLink 类。
要将 TActionList 与 TActionClientItem 关联,可以使用 TActionClientItem 的 Action 属性直接赋值为 TContainedAction 类型的对象。以下是修正后的示例代码:
```delphi
procedure TForm1.FormCreate(Sender: TObject);
var
ActionToolBar: TActionToolBar;
ActionClientItem: TActionClientItem;
begin
ActionToolBar := TActionToolBar.Create(Self);
ActionToolBar.ActionManager := ActionManager1;
ActionToolBar.Parent := Self; // 将 ActionToolBar 添加到主窗体上
// 添加其他的 TActionToolBar 或设置其他属性
// 添加 TActionList
ActionClientItem := ActionManager1.ActionBars[0].Items.Add;
ActionClientItem.Action := TContainedAction(ActionList1.Actions[0]);
end;
```
在这个示例中,我们创建了一个 TActionToolBar 组件,并将其关联到 TActionManager 的 ActionManager1 属性。然后,我们将 TActionToolBar 添加到主窗体上。你可以根据需要创建多个 TActionToolBar 组件,并将它们添加到主窗体或其他容器控件上。
最后,我们直接将 TActionList 的 Actions 列表中的第一个动作(TContainedAction 类型)赋值给 TActionClientItem 的 Action 属性。
非常抱歉之前给出的错误答案,希望这次能解决你的问题。如果还有其他疑问,请随时提问!
阅读全文