- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我试图将 TPopupMenu 作为子组件包含到自定义组件中,如下所示:
interface
TComp1 = class(TComponent)
private
FMenu: TPopupMenu;
protected
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
constructor Create(AOwner: TComponent); override;
published
property Menu: TPopupMenu read FMenu;
end;
implementation
constructor TComp1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMenu := TPopupMenu.Create(Self);
FMenu.Name := 'Menu1';
//FMenu.SetSubComponent(True);
end;
procedure TComp1.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
Proc(FMenu);
end;
问题是 TMenuItems 未保存到 DFM。重写 GetChildren 可以保存项目,但加载不起作用。
设置 SetSubComponent(True) 无效,TMenuItems 不会保存到 DFM。
更新:
我已经尝试过:
procedure TComp1.DefineProperties(Filer: TFiler);
begin
inherited;
Filer.DefineProperty('Menu', ReadMenuItems, WriteMenuItems, True);
end;
procedure TComp1.WriteMenuItems(Writer: TWriter);
begin
Writer.WriteComponent(FMenu);
end;
WriteMenuItems 给出“流读取错误”
最佳答案
如果您按照this answer中给出的步骤进行操作,那么代码就变成:
interface
uses
System.Classes, Vcl.Menus;
type
TMyComponent = class;
TMyPopupMenu = class(TPopupMenu)
private
FParent: TMyComponent;
procedure SetParent(Value: TMyComponent);
protected
procedure SetParentComponent(Value: TComponent); override;
public
destructor Destroy; override;
function GetParentComponent: TComponent; override;
function HasParent: Boolean; override;
property Parent: TMyComponent read FParent write SetParent;
end;
TMyComponent = class(TComponent)
private
FMenu: TPopupMenu;
protected
function GetChildOwner: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
constructor Create(AOwner: TComponent); override;
published
property Menu: TPopupMenu read FMenu;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMyComponent]);
end;
{ TMyComponent }
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMenu := TMyPopupMenu.Create(Self);
end;
function TMyComponent.GetChildOwner: TComponent;
begin
Result := Self;
end;
procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
inherited GetChildren(Proc, Root);
Proc(FMenu);
end;
{ TMyPopupMenu }
destructor TMyPopupMenu.Destroy;
begin
FParent := nil;
inherited Destroy;
end;
function TMyPopupMenu.GetParentComponent: TComponent;
begin
Result := FParent;
end;
function TMyPopupMenu.HasParent: Boolean;
begin
Result := FParent <> nil;
end;
procedure TMyPopupMenu.SetParent(Value: TMyComponent);
begin
if FParent <> Value then
begin
if FParent <> nil then
FParent.FMenu := nil;
FParent := Value;
if FParent <> nil then
FParent.FMenu := Self;
end;
end;
procedure TMyPopupMenu.SetParentComponent(Value: TComponent);
begin
if Value is TMyComponent then
SetParent(TMyComponent(Value));
end;
initialization
RegisterClass(TMyPopupMenu);
end.
这解决了您的流媒体问题:菜单项被保存到表单文件中并从表单文件中读回。但也有一些缺点:
Menu
属性来调用菜单设计器,TLabeledEdit
中的标签命名工作得很好)。也许另一种方法效果更好。
<小时/>我可以建议替代设计吗?添加 ActionList
属性而不是 PopupMenu
属性,并让 PopupMenu 从 ActionList 内部创建:
interface
uses
System.Classes, Vcl.ActnList, Vcl.Menus;
type
TAwComponent = class(TComponent)
private
FActionList: TCustomActionList;
FDropDownMenu: TPopupMenu;
procedure ActionListChanged(Sender: TObject);
function HasActions: Boolean;
procedure SetActionList(Value: TCustomActionList);
procedure SetupDropDownMenu;
protected
procedure Loaded; override;
public
constructor Create(AOwner: TComponent); override;
published
property ActionList: TCustomActionList read FActionList write SetActionList;
end;
implementation
function SameEvent(A, B: TNotifyEvent): Boolean;
begin
Result := (TMethod(A).Code = TMethod(B).Code) and
(TMethod(A).Data = TMethod(B).Data);
end;
{ TAwComponent }
procedure TAwComponent.ActionListChanged(Sender: TObject);
begin
if Sender = FActionList then
SetupDropDownMenu;
end;
constructor TAwComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FDropDownMenu := TPopupMenu.Create(Self);
end;
function TAwComponent.HasActions: Boolean;
begin
Result := (FActionList <> nil) and (FActionList.ActionCount > 0);
end;
procedure TAwComponent.Loaded;
begin
inherited Loaded;
SetupDropDownMenu;
end;
procedure TAwComponent.SetActionList(Value: TCustomActionList);
begin
if FActionList <> Value then
begin
if FActionList is TActionList then
if SameEvent(TActionList(FActionList).OnChange, ActionListChanged) then
TActionList(FActionList).OnChange := nil;
FActionList := Value;
if FActionList is TActionList then
if not Assigned(TActionList(FActionList).OnChange) then
TActionList(FActionList).OnChange := ActionListChanged;
SetupDropDownMenu;
end;
end;
procedure TAwComponent.SetupDropDownMenu;
var
I: Integer;
MenuItem: TMenuItem;
begin
FDropDownMenu.Items.Clear;
if FActionList <> nil then
begin
FDropDownMenu.Images := FActionList.Images;
for I := 0 to FActionList.ActionCount - 1 do
begin
MenuItem := TMenuItem.Create(Self);
MenuItem.Action := FActionList[I];
FDropDownMenu.Items.Add(MenuItem);
end;
end;
end;
end.
或者在组件外部设置 PopupMenu,并使属性可写。
您还可以尝试将 MenuItems 作为 CollectionItems 包装在临时集合中,例如我 have done here例如,但我还没有研究是否可以从代码中调用菜单设计器。
关于delphi - TPopupMenu 作为子组件,序列化 TMenuItems,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33893563/
我正在阅读 Python 文档以真正深入了解 Python 语言,并遇到了 filter 和 map 函数。我以前使用过过滤器,但从未使用过映射,尽管我在 SO 上的各种 Python 问题中都见过这
当我尝试打印 BST 的级别顺序时,这个问题提示了我。 这是一个 Pre-Order Sequence: 4, 1, 2, 3, 5, 6, 7, 8 In_order Sequence : 1, 2
我的代码在 main(序列测试;)的第一行出现错误,指出它是对 sequence::sequence() 的 undefined reference 。我无法更改 main 中的代码。有谁知道我该如何
这可能很简单,但我在通常的 latex 指南中找不到任何相关内容。在这句话中: {\em hello\/} “\/”的目的是什么? 最佳答案 这就是所谓的斜体校正。其目的是确保斜体文本后有适当的间距。
当我从 Postgresql 表中删除所有记录,然后尝试重置序列以在插入时开始一个编号为 1 的新记录时,我得到不同的结果: SELECT setval('tblname_id_seq', (SELE
在版本10.0.3中,MariaDB引入了一种称为序列的存储引擎。 其ad hoc为操作生成整数序列,然后终止。 该序列包含正整数,以降序或升序排列,并使用起始,结束和递增值。 它不允许在多个查询中
如何在 Groovy 中获取给定数字的序列,例如: def number = 169 // need a method in groovy to find the consecutive number
基本上,如果这是 .NET,它看起来像这样: ISomething { string A { get; } int B { get; } } var somethings = new List
说以下代码部分(同一块): A <= 1 A <= 2 变量 A 总是被赋值为 2 吗?还是会出现竞争条件并分配 1 或 2? 我对非阻塞赋值的理解是,由硬件在 future 分配变量 A,因此它可能
在运行 WiX 设置时,我正在寻找操作列表及其顺序。不知何故,官方网站似乎没有提供任何信息。 基本问题是我想正确安排我的自定义操作。通常我需要使用 regsvr32.exe 注册一个 DLL,而这只能
F#初学者在这里 我想创建一个类型,它是具有至少一个元素的另一种具体类型(事件)的序列。任何其他元素都可以在以后随时添加。通常在 C# 中,我会创建一个具有私有(private) List 和公共(p
作为构建过程和不断发展的数据库的一部分,我试图创建一个脚本,该脚本将删除用户的所有表和序列。我不想重新创建用户,因为这将需要比所允许的更多的权限。 我的脚本创建了一个过程来删除表/序列,执行该过程,然
我想恢复两个向量的第一个日期和相同向量的第二个日期之间的日期序列,.... 这是一个例子: dates1 = as.Date(c('2015-10-01', '2015-03-27', '2015-0
这个问题已经有答案了: sql ORDER BY multiple values in specific order? (12 个回答) 已关闭 9 年前。 我有一个 sql 语句,我想要ORDER
我想恢复两个向量的第一个日期和相同向量的第二个日期之间的日期序列,.... 这是一个例子: dates1 = as.Date(c('2015-10-01', '2015-03-27', '2015-0
在用java编写代码时,我需要用“],[”分割字符串。下面是我的代码。 try (BufferedReader reader = new BufferedReader(new InputStreamR
这个问题已经有答案了: Project Euler Question 14 (Collatz Problem) (8 个回答) 已关闭 9 年前。 我正在尝试查找数字的 Collatz 序列。以下
我有一个例程函数process_letter_location(const char& c, string &word)。 在我的 main 中,我声明了一系列字符串变量,如下所示: string s
我需要找到最长的多米诺骨牌链,给定一组 12 个随机挑选的多米诺骨牌。我已经递归地生成了多米诺骨牌的所有可能性(使用 0 到 12 的面值有 91 种可能性)。多米诺骨牌由一 block “砖 blo
我有这个数据结构 Seq,它继承了类 vector 但有一些额外的功能。使用这个数据结构 Seq 我有这个预定义的数据结构: typedef Seq > MxInt2d; 我现在想要一个包含多个 Mx
我是一名优秀的程序员,十分优秀!