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

bugxiong

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

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

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

转自：http://www.cnblogs.com/spymaster/archive/2011/08/03/2126191.html

逍遥派掌门人

补上官网的代码：
==================
{$ifdef LCLWinCE}
uses
  WinCEInt;
{$endif}

...

begin
{$ifdef LCLWinCE}
  WinCEWidgetset.WinCETitlePolicy := tpOKButtonOnlyOnDialogs;
{$endif}
end;
==================

不过，
        在 wince 6.0 和 wince 5.0里 没有产生想要的效果，
        仅与设置 form的bordersytle  为： bsdialog 的效果一致，
        都是 "x" 的 button