我自己制作的控件,其中有一个属性A是TStrings类型,我现在的问题是怎样定义一个属性编辑器,就像TCombobox的Items属性一样,当你单击它右放的省略号时会自动弹出一个文本编辑器来编辑lines
我手头有一个hkbarton的TClock例子,但他弹出的是自己定义的一个Form,我想问的问题是能不能不创建Form,是不是有现成的文本编辑器来编辑TStrings属性
我手头有一个hkbarton的TClock例子,但他弹出的是自己定义的一个Form,我想问的问题是能不能不创建Form,是不是有现成的文本编辑器来编辑TStrings属性
解决方案 »
- 如何实现对DataSet.Post的异常捕获?
- 向sql2000中写入“1.00”的困惑
- 使用loadBitMap()时遇到麻烦,请大家帮忙。。sorry..分用光了。
- 请问如何获取滚动条所在的位置?
- 【高手请进】这个问题好象不难,但好象会的不多啊(Memo字段读写问题)
- delphi开发webservice如何传递一个数据集?
- DBrichedit 是不是不能输入字母啊!
- 这要如何处理,我都要疯了? SOS SOS SOS!
- 请各位大侠帮忙, 修改光标
- SQL Monitor能不能监控TQuery1的SQL语句,能不能监控ADO控件?我总是不能
- 三层结构,在程序中能同时操作两个数据库吗?
- dblistbox中的条目无法被选中?
只要 property A: string read FA write FA;
就行了
应该是:
property A: TStrings read FA write FA;
private
fa:TString;//定义私有变量
protected
constructor Create(AOwner: TComponent); override;//继承constructor Txxxx.Create(AOwner: TComponent);
Begin
fa:=TStringList.create;
end;
procedure Register;
里面还有没有
RegisterPropertyEditor(....)还有 私有变量fa是否创建了
fa:=TStringList.create;
但我改正了这个问题后,省略号可以点了,当我输入内容后,第二次点省略号的时候,出现“Access violation at address 40005988 in module ' rtl60.bpl'.Read of address FFFFFFDC”
谢谢!
property RootIDItems: TStrings read FRootIDList write SetFRootIDList;procedure TOrgTreeList.SetFRootIDList(const Value: TStrings);
begin
if Assigned(FRootIDList) then
FRootIDList.Assign(Value)
else
FRootIDList := Value;
end;