createdesignerdsgn.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit CreateDesignerDsgn;

interface

uses

  DesignIntf, DesignEditors,
  Classes, CreateDesigner, CreateDesignerEditor;

type
  TFormDesignerEditor = class(TComponentEditor)
    function GetVerbCount: Integer; override;
    function GetVerb(Index: Integer): string; override;
    procedure ExecuteVerb(Index: Integer); override;
  end;

implementation

function TFormDesignerEditor.GetVerbCount: Integer;
begin
  Result:=1;
end;

function TFormDesignerEditor.GetVerb(Index: Integer): string;
begin
  Result:='Control &lists editor...';
end;

procedure TFormDesignerEditor.ExecuteVerb(Index: Integer);
begin
  if EditLists(Component as TCustomFormDesigner,ltLocked) then Designer.Modified;
end;

end.