モナーの *やさしい* Delphi質問スレ Ver.7
■ このスレッドは過去ログ倉庫に格納されています
0705Delphi好き ◆0YAPhEjk
NGNGームのコンポーネントにアクセスできるんです。なぜでしょうか。
(以下の例で、)
�@Form1のButton1をクリック > Form2が表示される
�AForm2のButton1をクリック > Closeされる
�BForm1のButton2をクリック > 何故か例外が発生しない!
この方法では正常にForm2のインスタンスを開放できていないんでしょうか。
ただし、�Bの前にForm2:=nil;を実行すると例外が発生しました。むぅ〜。
--------Unit1.pas
procedure TForm1.Button1Click(Sender : TObject);
begin
Form2:=TForm2.Create(nil);
Form2.Show;
end;
procedure TForm1.Button2Click(Sender : TObject);
begin
Label1.Caption:=Form2.Edit1.Text;
end;
--------Unit2.pas
procedure TForm2.Button1Click(Sender : TObject);
begin
Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
■ このスレッドは過去ログ倉庫に格納されています