如何将string字符转为控件名称(28分)

如:edit1.text:='panel1'

那我就可以:edit1.text.color:='77777777';

只是举说明不请大鸟指点

没有人会是吗

听不懂问题

不太好玩，FindComponent可以。属性就需要根据实际情况去处理了。

TEdit(FindComponent(Edit1.Text)).Color := '77777777';

希望这段对你有用。
uses TypInfo

///get PropList
var
pProps: PPropList;
nTotProps, nProps, I: Integer;
begin
//get the total number of properties
nTotProps := GetTypeData(ClassInfo).PropCount;
//allocate the required memory
GetMem(pProps, sizeof(PPropInfo) * nTotProps);
try
//fill the pProps with a filtered list
nProps := GetPropList(ClassInfo, [tkEnumeration], pProps);
finally
FreeMem(pProps, sizeof(PPropInfo) * nTotProps);
end;



////get prop value sample string property
var
PropInfo: PPropInfo;
PropInfo := GetPropInfo( aTButton.ClassInfo, aTEdit.Text);
if PropInfo <> nil then
if PropInfo^.PropType^.Kind = tkLString then
Caption := GetStrProp(aTButton, PropInfo)
else ShowMessage('Not a string property')
else
showMessage('Property doesn''t exist');

谢谢两位,特别是yzhshi兄长,你帮助我太多次了;

meidacard的新版本已完成了很多,这是问题是要解决其中的一个方案,看到可以了;谢谢

beta:分数太少了,请不要介意

希望你的meidacard早日出来。