| |
| 델마당 공식 은행계좌 |
| 하나은행 227-910235-83607 |
| 예금주 이상국(운영진) |
 |
|
|
|
|
| |
 |
| |
|
|
|
|
 [답변]객체(?)를 복사하려고 합니다. 어떻게 해야하나요? |
장성호
(장성호)
2010-02-17 오전 2:24:35
2413회 조회
등록된 파일이 없습니다.
|
|
|
어제 댓글 답변으로 RTTI를 이용하여 해보라고 말씀드렸는데요 작년 세미나 자료를 참조하여 http://www.delmadang.com/community/bbs_view.asp?bbsNo=21&bbsCat=0&st=C&keyword=RTTI&indx=416880방금 간단히 구현해 보았습니다. 음... Owner와 Parent정보를 copy가되지 않으며 Panent를 달리해줘야 화면에 보이기 때문에 아래 예제에서는 Owner를 똑같이 해줬지만 Parent는 달리해줬습니다. 다른 모든 Property는 똑같이 copy됩니다.
|
procedure CopyControlProperty( OrgCtrl: TControl;DestCtrl: TControl);
var
I,PropCount: Integer;
PropList: PPropList;
PropInfo: PPropInfo;
TypeInfo: PTypeInfo;
begin
if(OrgCtrl.ClassType <> DestCtrl.ClassType)then Exit;
PropCount := GetTypeData(OrgCtrl.ClassInfo)^.PropCount;
if PropCount > 0 then
begin
GetMem(PropList, PropCount * SizeOf(Pointer));
try
GetPropInfos(OrgCtrl.ClassInfo, PropList);
for I := 0 to PropCount - 1 do
begin
PropInfo := PropList^[I];
if PropInfo = nil then Break;
if IsStoredProp(OrgCtrl, PropInfo) and Assigned(PropInfo^.SetProc) then
begin
TypeInfo := PropInfo^.PropType^;
case TypeInfo^.Kind of
tkInteger, tkChar, tkWChar, tkEnumeration, tkSet:
begin
SetOrdProp(DestCtrl, PropInfo.Name, GetOrdProp(OrgCtrl, PropInfo));
end;
tkFloat:
begin
SetFloatProp(DestCtrl, PropInfo.Name, GetFloatProp(OrgCtrl, PropInfo));
end;
tkString, tkLString, tkWString:
begin
SetStrProp(DestCtrl, PropInfo.Name, GetStrProp(OrgCtrl,<
|
|
|
|
|
|
|
|
 |
|
|
|
