TzObjectInspector 一例

TzObjectInspector Github上的一个开源组件！可以做到类似Delphi IDE属性，事件面板的样式！作者持续更新中...

看起来是这个样子：

这个东西用起来并不像想象的那样可以直接添加数据，反而类似mvc规范，需要将需要的数据定义为类，然后用它读入，改变！

例如先定义个类：

type
  TEmnu=(red,blue,yellow);
//进程动作列表
type TProcessAction=class(TObject)
private
  FindProcess :Boolean;
  StartProcess:Boolean;
  CloseProcess:Boolean;
  FGridColor:TEmnu;
published
  property 查找进程:Boolean read FindProcess write FindProcess default true;
  property 启动进程:Boolean read StartProcess write StartProcess;
  property 关闭进程:Boolean read CloseProcess write CloseProcess;
  property 颜色选择:TEmnu read FGridColor write FGridColor;
end;

然后写入代码：

procedure TForm.Button1Click(Sender: TObject);
var
  ProcessAction:TProcessAction;
begin
  ProcessAction:=TProcessAction.Create;
  Zoi.Component:=ProcessAction;
end;

然后看起来是这个样子：

结束..