請教前輩!!

ComponentToString & StringToComponent 無作用??    使用ComponentToString把Button轉一字串,再傳回來但沒作用??
 strlist := ComponentToString(self.Button1);
   self.Button2 :=   StringToComponent(strlist) as TButton ;
不知那錯了???    以下是我的程式碼,謝謝
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls;    type
  TForm1 = class(TForm)
    DBListBox1: TDBListBox;
    DBListBox2: TDBListBox;
    Shape1: TShape;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure BitBtn1Click(Sender: TObject);      private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    uses Unit2;        {$R *.dfm}    function ComponentToString(Component: TComponent): string;    var
  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;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
strlist : string;
begin
 strlist := ComponentToString(self.Button1);
   self.Button2 :=   StringToComponent(strlist) as TButton ;    end;
initialization        //add
RegisterClasses([TButton]);    end.    謝謝各位前輩!!  

改成如下試試:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  strlist: string;
begin
  strlist := ComponentToString(self.Button1);      Self.Button2.Free;
  Self.Button2 := nil;      Self.Button2 := StringToComponent(strlist) as TButton;
  Self.Button2.Parent := Self; // 指定 Parent 才能顯示
  Button2.Left := Button1.Left   Button1.Width; // 改變一下 Left 屬性，不然它是與 Button1 重疊在一起的
end;

-- 向 KTop 的弟兄們致敬!

引言: 改成如下試試:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  strlist: string;
begin
  strlist := ComponentToString(self.Button1);      Self.Button2.Free;
  Self.Button2 := nil;      Self.Button2 := StringToComponent(strlist) as TButton;
  Self.Button2.Parent := Self; // 指定 Parent 才能顯示
  Button2.Left := Button1.Left + Button1.Width; // 改變一下 Left 屬性，不然它是與 Button1 重疊在一起的
end;

謝謝前輩的回覆,這樣就可以了 但還有一個奇怪的問題?? 就是當物件為ListBox是,可以正常轉換 但如 ListBox的Items 有資料時就會錯誤 我試TreeView 也有相同情況?? 謝謝前輩!! 發表人 - jeffreck 於 2004/07/14 11:40:47

參考這兩篇當中 Peter Below 的回答部份: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=c8317e13e326946c&rnum=1 http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=40d6bba30270277b&rnum=2    -- 向 KTop 的弟兄們致敬!