(学)Lazarus 在 WinCE 下如何取消标题栏上的 OK 或 X 按钮

说白了，我想要一个纯正的标题栏，如果用户想退出呢，必须点我提供的按钮才能退出。
.NET下这个是可以实现的。
而Lazarus呢？官方网站上说，也可以实现。

 

http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes#The_Title_.22OK.22_and_.22X.22_buttons

简化点说：引用 WinCEInt，FormCreate中添加 WinCEWidgetset.WinCETitlePolicy := tpOKButtonOnlyOnDialogs;