Dear All大大:

Me想在程式執行時期,去改變元件的Anchors,
但是用SetPropValue無法實現Me的想法,
不知道各位先進大大是否可以給小弟Me一點指點,3q3q.

TAnchors as1<
TComponent *com=Form1->FindComponent("Button1");
if (GetPropInfo(com->ClassType(),"Anchors",as2=GetPropValue(com,"Anchors") ; //因為沒辦法用這種寫法去抓屬性

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)< sAnc = SetToString(PropInfo,Anchors.ToInt());

SetSetProp(com,PropInfo,sAnc); //PropInfo可寫"Anchors"
Panel1->Width = 300;
}
[/code]

Dear Senso大大:

感謝您再度協助小弟排除困難,
但是以下這三行在BCB6下過不了,

TAnchors Anchors=TAnchors(iAnc);
Anchors=TAnchors(0) < akRight; //
sAnc=SetToString(PropInfo,Anchors.ToInt());

所以我改用以下的方式去處理:
AnsiString SetSetProp(com,PropInfo,as1);

再次感謝您的熱情相助.

編輯記錄

我是用CB2007沒問題~
BCB6已經移掉了XD~

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;
}

搜尋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]

沒想到六年前也有人跟我一樣問過相同的問題
只不過偶不會用Delphi,
所以Delphi的相關文章通常是有看沒有到,
更別說那麼艱深的用法了,3q3q,偶再去試試看,..