如何將TstringList加入元件中能正確使用 |
答題得分者是:Justmade
|
firefall
一般會員 發表:22 回覆:36 積分:11 註冊:2002-05-14 發送簡訊給我 |
請教各位前輩大大:
小弟在元件中加入Tstringlist屬性後,在Design時點選該屬性可叫出文件視
窗,但第二次時再點選,即發生錯誤訊息,Delphi就當了,只能重開,請問大大
小弟錯在哪? TestComponet
//
FNewTsringList:TsringList ;
Procedure Create(Aowner:TComponent);
Procedure Destroy;
//
Property AStringList:TsringList Read FNewTsringList write FNewTsringList; 在Create
//
FNewTsringList:=TsringList.create; 在Destory
//
FNewTsringList.Free; 謝謝各位大大
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
private FNewTsringList:TsringList ; procedure setNewTstringList(Value : TStringList); ... published Property AStringList:TsringList Read FNewTsringList write FNewTsringList; procedure TestComponet.setNewTstringList(Value : TStringList); begin FNewTstringList.Assign(Value); //Object 類的 property 應用 Assign 較好 end; |
firefall
一般會員 發表:22 回覆:36 積分:11 註冊:2002-05-14 發送簡訊給我 |
引言:感謝版主大大指點,小弟尚有一事請教,小弟己完成一個元件 可利用tstringList做出一系列的Button,在designTime 時將active 設為 True Delphi自動建立無誤,但在Run time 時該元件會自行Disable,得使用 者自行再Active才會建立,請問大大該如何做才能讓元件正常(在Run Time時不會自行Disable),對不起,小弟的元件設計觀念粗淺,煩請大大告知,再次感謝。private FNewTsringList:TsringList ; procedure setNewTstringList(Value : TStringList); ... published Property AStringList:TsringList Read FNewTsringList write FNewTsringList; procedure TestComponet.setNewTstringList(Value : TStringList); begin FNewTstringList.Assign(Value); //Object 類的 property 應用 Assign 較好 end; |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |