この発言は
#00452　凛              さんのBitmap結合+コメント付け　TStream使用
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00454　凛              さん　RE:コンテナフォームを使ってみたら？




凛 さん、こんにちは。

>結合し、コメントを付加した、独自ファイルを作る/読む方法の例です。

　独自でよければ，Visible = Falseなフォームを一個別に作って（Form2)
コンテナとして使えばなんでも好きに読み書きできますね．

  TForm1 = class(TForm)
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Image1: TImage;
    Image2: TImage;
  以下略

  TForm2 = class(TForm) // Containerとして使うフォーム
    Image1: TImage;     // 好きな部品をただ貼り付けるだけ
    Image2: TImage;
    Label1: TLabel;     // StringList保存にはMemoが使える
  以下略

procedure TForm1.Button4Click(Sender: TObject);
var  Form2: TForm2;
begin
  // コンテナにデータを書き込み
  Form2 := TForm2.Create(Self);
  Form2.Label1.Caption := Edit1.Text;         // コメントとか
  Form2.Image1.Picture := Image1.Picture;     // BMP,WMFとか
  WriteComponentResFile(ExtractFileDir(
               Application.ExeName) + 'ttt.dfm', Form2);
  Form2.Free;
end;

procedure TForm1.Button5Click(Sender: TObject);
var  Form2: TForm2;
begin
  Form2 := TForm2.CreateNew(Application);   // コンストラクタに注意
  // コンテナをファイルから読み込み
  ReadComponentResFile(ExtractFileDir(
               Application.ExeName) + 'ttt.dfm', Form2);

  // 読み込んだものをコンテナから取り出す
  Image2.Picture := Form2.Image1.Picture;
  Label1.Caption := Form2.Label1.Caption;
  Form2.Free;
end;

とか．．．．

                                                  ＴＮ(CQJ01721)

Original document by ＴＮ            氏 ID:(CQJ01721)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。