انتقال بحشی از اشیا فرم به فرم دیگری

[khorsandreza]

سلام
نمیدانم سوالم چقدر منطقی است ولی خوب نظر دیگه
من میخواهم یک شی مثلا Panel را که دا خلش کلید و editbox و غیره است را با کلیه event به فرم دیگه منتقل کنیم
البته با کد نویسی

[AliReza Vafakhah]

خوب باید فایل های Pas و DFM را تجزیه و تحلیل کنید (Pas برای Event ها و Dfm برای به دست آوردن خصوصیت اشیا)

[یوسف زالی]

فکر کنم بهتر یاشه اونا رو Serialize کنی و تو مقصد Deserialize.


function Serialize(Obj: TComponent): WideString;
var
StringStream: TStringStream;
MemoryStream: TMemoryStream;
begin
MemoryStream := TMemoryStream.Create;
StringStream := TStringStream.Create('');
MemoryStream.WriteComponent(Obj);
MemoryStream.Seek(0, 0);
ObjectBinaryToText(MemoryStream, StringStream);
result := StringStream.DataString;
end;
procedure DeSerialize(Obj: TComponent; data: WideString);
var
StringStream: TStringStream;
MemoryStream: TMemoryStream;
begin
MemoryStream := TMemoryStream.Create;
StringStream := TStringStream.Create(data);
ObjectTextToBinary(StringStream, MemoryStream);
MemoryStream.Seek(0, 0);
MemoryStream.ReadComponent(Obj);
end;