掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの最小化ボタンのみ表示 (ID：25674)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなんかな？ type TForm1 = class(TForm) private procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND; public procedure CreateParams(var Params: TCreateParams); override; end; procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin //最大化を維持するためリストア無効 if (Msg.CmdType and $FFF0) <> SC_RESTORE then begin inherited; end; end; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); //最小化ボタンを無効化 Params.Style := Params.Style AND (not WS_MAXIMIZEBOX); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.