안녕하세요..
컴포넌트 이름들을 배열에 스트링으로 넣어두시고
FindComponent 로 찾으시면 사용은 가능합니다...
예를들면..
var
MyComponent : TComponent;
ComponentName: array [0..10] of string;
begin
ComponentName[0] := 'Panel1';
ComponentName[1] := 'Edit1';
MyComponent := FindComponent(ComponentName[0]);
if MyComponent is TPanel then
TPanel(MyComponent).Color := clBlue;
MyComponent := FindComponent(ComponentName[1]);
if MyComponent is TEdit then
TEdit(MyComponent).Text := '우왕ㅋ굳ㅋ';
end;
컴포넌트 이름들을 배열에 스트링으로 넣어두시고
FindComponent 로 찾으시면 사용은 가능합니다...
예를들면..
var
MyComponent : TComponent;
ComponentName: array [0..10] of string;
begin
ComponentName[0] := 'Panel1';
ComponentName[1] := 'Edit1';
MyComponent := FindComponent(ComponentName[0]);
if MyComponent is TPanel then
TPanel(MyComponent).Color := clBlue;
MyComponent := FindComponent(ComponentName[1]);
if MyComponent is TEdit then
TEdit(MyComponent).Text := '우왕ㅋ굳ㅋ';
end;
뭐..이런식으로 가능하겠지요.. 근데 이게 ..의도하신게 이게 맞나요 ㅎㅎ:...
그럼.. 즐거운 프로그래밍 하세요..