我最近重新编译了 TDBGrid 组件,以实现几个自定义功能,尽管我注意到额外的设计时上下文菜单项“列编辑器”的功能现在已经消失了。
我未能找到任何在原始 Vcl.DBGrids
单元中创建此菜单的代码,并且在网上寻找有关如何执行此操作的解决方案时运气非常糟糕。
这也适用于双击。以前是调用Columns Editor,现在只是创建OnCellClick事件。
最佳答案
在组件的设计时包中,实现一个组件编辑器:
type
TMyComponentEditor = class(TComponentEditor)
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
procedure TMyComponentEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0:
Beep;
end;
end;
function TMyComponentEditor.GetVerb(Index: Integer): string;
begin
Result := 'Beep';
end;
function TMyComponentEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
您还需要注册此组件编辑器。在您的 Register
过程中调用 RegisterComponentEditor
来执行此操作:
RegisterComponentEditor(TMyComponent, TMyComponentEditor);
关于Delphi:如何为自定义组件创建额外的设计时菜单?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13514265/