掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
破棄されたフォームを知るには？ (ID:32018)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これ正常に動作するだろ？ function checkCreatedForm(fm:TForm):boolean; var i : integer; begin Result:=False; for i:=0 to Screen.FormCount-1 do begin if Screen.Forms[i] = fm then begin Result:=True; break; end; end; end; >として、FormA.FormCloseで >Action:=caFree; >とした後、 >res:=checkCreatedForm(FormA); >を呼び出すと、resにTrueを返します。 FormA.FormClose 内で res:=checkCreatedForm(FormA); を実行して Trueを返すと言ってる気がするんだけど・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.