全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1094
推到 Plurk!
推到 Facebook!

如何將TstringList加入元件中能正確使用

答題得分者是:Justmade
firefall
一般會員


發表:22
回覆:36
積分:11
註冊:2002-05-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-01 16:39:20 IP:61.70.xxx.xxx 未訂閱
請教各位前輩大大: 小弟在元件中加入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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-01 16:45:58 IP:218.16.xxx.xxx 未訂閱
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-01 21:21:33 IP:61.70.xxx.xxx 未訂閱
引言:
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;
感謝版主大大指點,小弟尚有一事請教,小弟己完成一個元件 可利用tstringList做出一系列的Button,在designTime 時將active 設為 True Delphi自動建立無誤,但在Run time 時該元件會自行Disable,得使用 者自行再Active才會建立,請問大大該如何做才能讓元件正常(在Run Time時不會自行Disable),對不起,小弟的元件設計觀念粗淺,煩請大大告知,再次感謝。
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-01 22:19:38 IP:218.16.xxx.xxx 未訂閱
你單這樣說很難明白問題出在那裡。 由於是另一問題,請另開題目並將相關程式碼貼上,這樣才容易幫你看。
系統時間:2024-05-17 8:02:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!