システムメニューの閉じるボタンを消せないか？

[toshiyori]

AB４．２４を使用しています
RADツールを使って　フォームを作りました。

その場合　閉じるボタンを消す方法が見つかりません
システムメニューを　消すように　設定はできますが
それでは　最小化ボタンも　消えます

理由は　終了時に　作業をさせたいためです
コマンドボタンをで　閉じれば　それが可能ですが
「ｘ」ボタンで　閉じられた時に　対応できないためです。
よろしくお願いします

[konisi]

QueryCloseかDestroyで処理すれば、わざわざ×ボタンを消す必要はありません。

＃ウインドウ左上のアイコンをダブルクリックしたりAlt+F4を押したりした場合にも、特殊な処理を組んでいない限りはウインドウが閉じられます。

[水波形]

自分はちょっとかっこつけたくて、無効にすることがあります。
消せはしませんが、ちょっと参考に

コード: 全て選択

Dim hMenu As Long
hMenu=GetSystemMenu(hWnd,0)
EnableMenuItem(hMenu,SC_CLOSE,MF_DISABLED)