掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
モーダレスで表示した画面の終了判断について (ID：11231)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function IsFormExist(FormName:string):Boolean; var i:integer; begin result := false; for i := 0 to Screen.FormCount-1 do if Screen.Forms[i].Name = FormName then begin result := true; exit; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if IsFormExist('Form2') then ShowMessage('Form2 Exists') else ShowMessage('Form2 does not Exist'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.