請問要如何用SetPropValue去設定Anchors屬性呢? |
答題得分者是:senso
|
renard
一般會員 發表:3 回覆:43 積分:24 註冊:2007-06-29 發送簡訊給我 |
|
senso
高階會員 發表:5 回覆:126 積分:226 註冊:2003-11-27 發送簡訊給我 |
Set集合屬性 請參考 Delphi 的RTTI机制浅探(续) 中的 GetSetProp / SetSetProp 函数
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=68579 [code cpp] TComponent *com = Form1->FindComponent("Button1"); PPropInfo PropInfo = GetPropInfo(com->ClassType(),"Anchors"); if (PropInfo) { AnsiString sAnc = GetSetProp(com,PropInfo); //PropInfo可寫"Anchors" int iAnc = StringToSet(PropInfo,sAnc); TAnchors Anchors = TAnchors(iAnc); //轉為TAnchors //更改Anchors set屬性 ex: sAnc = "akLeft,akRight"; Anchors = TAnchors(0)< SetSetProp(com,PropInfo,sAnc); //PropInfo可寫"Anchors" Panel1->Width = 300; } [/code] |
renard
一般會員 發表:3 回覆:43 積分:24 註冊:2007-06-29 發送簡訊給我 |
Dear Senso大大:
感謝您再度協助小弟排除困難, 但是以下這三行在BCB6下過不了, TAnchors Anchors=TAnchors(iAnc); Anchors=TAnchors(0) < akRight; // sAnc=SetToString(PropInfo,Anchors.ToInt()); 所以我改用以下的方式去處理: AnsiString SetSetProp(com,PropInfo,as1); 再次感謝您的熱情相助. |
senso
高階會員 發表:5 回覆:126 積分:226 註冊:2003-11-27 發送簡訊給我 |
|
renard
一般會員 發表:3 回覆:43 積分:24 註冊:2007-06-29 發送簡訊給我 |
Dear Senso大大:
請問一下,如果要變更的那個元件的屬性是Items, 要怎樣將StringList加入呢? PPropInfo PropInfo2=GetPropInfo(com->ClassType(),"list=new TStringList(); for(int i=0;i<10;i ) list->Add((String)i); //SetSetProp(com,PropInfo2,//SetSetProp不能用,請問有SetItemProp這種函式嗎? delete list; } |
senso
高階會員 發表:5 回覆:126 積分:226 註冊:2003-11-27 發送簡訊給我 |
搜尋GetPropInfo items參考以下兩篇
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=56447 http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=56261 [code cpp] TComponent *com = Form1->FindComponent("ComboBox1"); PPropInfo PropInfo = GetPropInfo(com->ClassType(),"Items"); if (PropInfo) { TStrings *Items = new TStringList(); Pointer ptr = Pointer(GetOrdProp(com,PropInfo)); Items->Assign((TStrings*)ptr); //Items->Clear(); Items->Add("aa"); Items->Add("bb"); if (Items->Count>0) SetOrdProp(com,PropInfo,Longint(Pointer(Items))); delete Items; } [/code] |
renard
一般會員 發表:3 回覆:43 積分:24 註冊:2007-06-29 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |