掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
実行時プロパティの保存をするには？ (ID:3673)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
にしの様早速のレスありがとうございます。 まず、WriteComponentResFileでやってみようと思っています。 早速取りかかっているのですが早速つまずいてしまったので教えてください。 FormCreate時にReadComponentResFileで読み込みます。 ここまでは、うまくいくのですがボタンを使い今度は違うファイルを ReadComponentResFileで読み込むとエラーが出てしまいます。 コンポーネントが残っているからダメだと思い全コンポーネントをFreeしてみたのですがそうすると押されたボタンもFreeしてしまうので再度エラーが出て しまいます。どうすればうまく読み込めますか？ 説明下手ですみませんが御教授お願いいたします。 以下テストプログラムです。 procedure TForm1.FormCreate(Sender: TObject); var Bu : TButton; begin ReadComponentResFile('test',self) Bu := FindComponent('Button1') as TCuteButton; Bu.OnClick := TestClick; end; procedure TForm1.TestClick(Sender: TObject); var Cu : TCuteButton; i :Integer; begin for i := ControlCount-1 downto 0 do Controls[i].Free; ReadComponentResFile('test1',self); end; initialization RegisterClasses([TButton,TEdit,TLabel,Tpanel]);
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.