掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの最小化ボタンのみ表示 (ID:25677)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「最小化ボタンのみ有効」だよね。 procedure SetSysMemuMode(SysMode: Boolean); var hMenuHandle: HMENU; vConst: LONGINT; lStyle: LONGINT; begin case SysMode of False: vConst := MF_GRAYED; True : vConst := MF_ENABLED; end; hMenuHandle := GetSystemMenu(Form1.Handle, False); if hMenuHandle <> 0 then begin EnableMenuItem(hMenuHandle, SC_CLOSE, (MF_BYCOMMAND + vConst)); end; lStyle := GetWindowLong(Form1.Handle, GWL_STYLE); case SysMode of False: lStyle := lStyle and (not WS_MAXIMIZEBOX); True : lStyle := lStyle or WS_MAXIMIZEBOX; end; SetWindowLong(Form1.Handle, GWL_STYLE, lStyle); DrawMenuBar(Form1.Handle); SysMode := not SysMode; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.