掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サブフォームを最小化しないようにするには？ (ID:19586)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これはDelphiの仕様です．その方が都合のいいことが多いからです． 詳しい説明は省略します．いろいろやってみると理解することができる のではないかと思います． メインフォームの最小化の目的にもよりますが，最小化の操作で見えなく することは可能です． 新規のプロジェクトでフォームを2つ作成して，各々Form1(Unit1)，Form2(Unit2) とします．以下のコードを試してみてください． ----- Unit1.pas ---- public { Public 宣言 } procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND; end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; // 最小化の操作で非表示にする procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin case Msg.CmdType and $FFF0 of SC_MINIMIZE: Hide; else inherited; end; end; end. ---- Unit2.pas --------------- implementation uses Unit1; {$R *.DFM} procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Show; end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.