問題タブ [rad-studio]
For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.
delphi - Windows コマンドを失わずに縁なしフォームを作成する
フォームをボーダレス フォームに変更しました。BorderStyleプロパティをbsNoneに変更しただけですが、アプリケーションで Windows アンカーと次のようなコマンドが失われました。
WIN + ↑ (クライアントのフォームを整列)
WIN + ↓ (フォームを最小化)
WIN + → (フォームを右に整列)
WIN + ← (フォームを左に整列)
BorderStyle: bsSizeable内で以下のコードを設定して使用しようとしましFormCreateたが、これは機能しません。
これにより、次の結果が得られます。
上の画像は私が望むものですが、既に言及した Windows コマンドは機能しません。
これらのコマンドを設定してBorderStyle: bsNone失わない方法はありますか?
編集済み
私のフォームを使用するWS_THICKFRAMEと、少し上の境界線が返され、Windows コマンドはうまく機能しますが、その上の境界線は必要ありません。
編集済み 2
期待した結果に非常に近い結果になりましたが、まだ少し問題があります...
これを身につけましたFormCreate
そして、私はメソッドを作成します
その後
ここでこのメソッドを取得しました
境界線が消えましたが、フォームがフォーカスを失うと、上/下の境界線が再び表示されます....
どうすればこれを回避できますか?
解決した
境界線をそのままにしてBorderStyle: bsSizeable、次のようにしました。
GitHUB でのソリューション
ここにリポジトリを作成しました