掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームをモーダルで表示後、最小化、親フォームを最小化するには？ (ID:43773)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
最小化だけでなく普通に操作できちゃうけど uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.WindowList := DisableTaskWindows(0); if Form2.ShowModal = mrOK then begin end; Form2.Free; end; /////////////// TForm2 = class(TForm) procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); private public WindowList: Pointer; end; procedure TForm2.FormShow(Sender: TObject); begin EnableTaskWindows(WindowList); end; ////// if not Assigned(Form2) then Form2 := TForm2.Create(Application); Form1.Hide; Form2.ShowModal; Form1.Show; だけでいい気もするけど・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.