delphi - 如何将 TColor 编辑对话框(例如 TColorDlg)添加到 JvInspector TColor 属性？

Question

我正在使用 JvInspector 来编辑我的类的属性。 TColor 属性在 JvInspector 编辑器中显示为“clRed”等，并且很乐意接受类似输入的颜色名称。我真的想要与 TFont 旁边显示的功能相同的功能，其中有一个省略号按钮可以打开 TFontDialog - 对于 TColor 属性，我想要一个 TColorDialog (或我自己的属性之一)。我看到 JvInspector 如何声明具有特定编辑的 TJvInspectorFontItem，但我不知道如何告诉检查员来找我进行 TColor 编辑 - 我希望看到一个寄存器，我可以在其中添加我的 TColor 类型和新的编辑功能.

取自 this SO question 的解决方法如下所示为我提供了“单击”功能，我可以使用它来打开 TColorDlg，但它对用户来说并不直观，而且不如省略号按钮解决方案那么好。

procedure TSimpleMainForm.ItemClick(ASender: TObject);
begin
 ShowMessage(JvInspector1.Selected.Name);  // << my edit would go here
  Abort; // don't change the value by the default double click handler
end;

procedure TSimpleMainForm.JvInspector1BeforeEdit(Sender: TObject;
  Item: TJvCustomInspectorItem; Edit: TCustomEdit);
begin
  TEdit(Edit).OnClick := ItemClick;

end;

任何人都可以帮助我或向我指出合适的文档吗？谢谢

Answer 1

这篇文章有一些很好的示例 http://www.neugls.info/the-tjvinspector-component-of-jvcl/

在副标题如何制作自己的项目下有一个颜色对话框的代码示例。