掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの表示に関するコーディング (ID:20112)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ？ クラス型がＤ４かＤ５なので、それ以降のバージョンならたぶんＯＫな気がする procedure hogehoge(var FormX:TCustomForm; FormXClass: TCustomFormClass) begin if FormX = nil then begin FormX := FormXClass.Create(Application); FormX.Top := Top + Height; FormX.Left := Left; FormX.Show; end else begin FormX.Close; FreeAndNil(FormX); end; end; 呼び出し var Form1: TForm1; Form2: TForm2; ... Form9: TForm9; hogehoge(Form1, TForm1); hogehoge(Form2, TForm2); ... hogehoge(Form9, TForm9);
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.