動的フレームの再作成でエラー (ID:22533)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 (1) 新規にプロジェクトを作成 (2) [ファイル][フレームの新規作成] (3) [Unit1]を編集対象にする (4) [ファイル][ユニットを使用する]でunit2を選択 (5) ボタンを2つ配置する (6) unit1.pasのコードを以下の通りとする type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation uses Unit2; var a: tframe2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin if not Assigned(a) then a:=tframe2.Create(self); a.Top:=100; a.Left:=100; a.parent:=form1; a.Show; end; procedure TForm1.Button2Click(Sender: TObject); begin FreeAndNil(a); end; end. これで確認してみて下さい。 動作確認は、WindowsXP(SP2) + Delphi5(UP1)です。 >それは別の方です。 発言する前に確認するといいでしょう。レスをつける方の中にはその人が以前どんな 発言(質問)をしているかによって、レスの内容を考える場合があります。 (その人のスキルを判断するために) 発言に関する一般的な注意については、私のサイトにリンクがありますので、参考に して下さい。