RichEdit1上动态创建Panel1,同时Panel1上动态生成了几个Button,:=ButtonClick,怎么用持久化的方法保存和读取这些控件啊?
读取出来的要和原来的一样,有Panel,Panel上有Button,Button.OnClick还是ButtonClick事件..
读取出来的要和原来的一样,有Panel,Panel上有Button,Button.OnClick还是ButtonClick事件..
解决方案 »
- delphi
- Delphi中把dcu文件删除了,怎么恢复
- 如何实现象MSN中那样的闪屏振动功能?
- <<< 封装了一个Non-Blocking Socket Server类,在多线程处理上遇到不可思议的问题! >>>
- 讨论:如何强制关闭一个窗体,即使它本身设定是不能关闭的.
- Table出错提示
- 在DBgrid.ondbclick中,如何得到双击的cell的行和列。
- 怎么样把自己的程序放到在系统托盘里?
- 求助大师,好急(搞了一天没搞定):DBCheckBox1绑不到sql数据库一个表中新加的一个字段,不知是什么原因???
- 请问为什么用下面这段程序来是托盘上的图标响应消息时,没有作用?
- 问个关于Canvas 的问题....
- 在linux+squid中,当Ftp下载通过http代理时,有没遇到过FTP下载时只能在IE中下载
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free; end;
finally
BinStream.Free
end;
end;function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil); finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;