[delphi-users:5148] 表示中のウィンドウをモーダルにできません

[遊歩人]

Form1からForm2を表示しようとすると、次のエラー表示されます。

「表示中のウィンドウをモーダルにできません」

コードは次の通り。

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form2 := TForm2(Self);
try
Form2.ShowModal;
finally
FreeAndNil(Form2);
end;
end;

Delphi 10.3 Rio Ent/Delphi XE8 共に同じです。

何が原因でしょうか？

ご教授宜しくお願い致します。

遊歩人


MLホームページ: https://www.freeml.com/delphi-users

----------------------------------------------------------------------
スマホアプリ版で100万ダウンロード突破の
「キャプテン翼ZERO～決めろ！ミラクルシュート～」
HTML5ゲームプラットフォーム「ゲソてん byGMO」にて、
PCブラウザ版を好評配信中！
https://gesoten.com/games/genre/sports/tsubasa-zero
------------------------------------------------------[freeml byGMO]--

あなたの街のチラシがいつでも無料で見放題！
チラシをクリックしてチラシが拡大されたらポイントゲット♪
まずはかんたん登録♪　-ポイントタウン-
https://www.pointtown.com/ptu/rd.cgi?cid=8912
----------------------------------------------------------------------

[高木太郎]

こんにちは、イマジオムの高木です。

遊歩人さん：

> 「表示中のウィンドウをモーダルにできません」
>
> コードは次の通り。
>
> procedure TForm1.BitBtn2Click(Sender: TObject);
> begin
> Form2 := TForm2(Self);
> try
> Form2.ShowModal;
> finally
> FreeAndNil(Form2);
> end;
> end;

> 何が原因でしょうか？

　誤：Form2 := TForm2(Self);

　正：Form2 := TForm2.Create(Self);

──なのではないでしょうか？
――――――――――――――――――――――――――――――――――――
〒３１６－００２４ 茨城県 日立市 水木町 １－１１－１０　高木太郎
電話：０２９４－５２－６７８７
電子メール：aaa1...@pop06.odn.ne.jp

[遊歩人]

高木さん、こんにちは。

＞　正：Form2 := TForm2.Create(Self);
おぉ、なんとミスを・・ (^^;

ありがとうございました。

遊歩人