为什么我写的 TRecordsetProperty 在设计期可以用，运行期就没有效果？(属性编辑器)(50分)

TRecordset = type string;

TRecordsetProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
end;

// ...

function TRecordsetProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paValueList, paSortList, paMultiSelect];
end;

procedure TRecordsetProperty.GetValues(Proc: TGetStrProc);
begin
Proc('a');
Proc('b');
Proc('c');
end;

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯