お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"コンテナフォームを使ってみたら?"

この発言は
#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; とか.... TN(CQJ01721) Original document by TN 氏 ID:(CQJ01721)



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

Copyright 1996-2002 Delphi Users' Forum