TtmCommandEditor=class(TStringProperty)
  public
    function GetAttributes:TPropertyAttributes;override;
    procedure Edit;override;
  end;    procedure TtmCommandEditor.Edit;
var
  S:string;
begin
  inherited;
  S:=GetValue;   //Get不到Value？？   Why？？
  FormViewKeyEditor:=TFormViewKeyEditor.Create(Application);
  FormViewKeyEditor.ShowModal;
  if FormViewKeyEditor.ModalResult=mrOK then
  begin
    SetValue(strViewKey);  //回寫不成功？？  Why？？
    Designer.Modified;
  end;
end;    function TtmCommandEditor.GetAttributes: TPropertyAttributes;
begin
  Result:=[paDialog];
end;    RegisterPropertyEditor(TypeInfo(string),TtmColumn,'Command',TtmCommandEditor);