关于无标题栏窗体的问题？

Question

照楼上弟兄说的；
源码;
先建几个和系统相同的菜单项
放大菜单;
showwindwo(handle,sw_maxde)//参数我不记得发查SDK
缩小
showwindwo(handle,sw_maxde)//参数我不记得发查SDK
关闭
close;
还原
showwindwo(handle,sw_maxde)//参数我不记得发查SDK然后在设定你的图形控件的PopupMenu为你的PopupMenu;
然后在你的图形单击事件里写代码;
PopupMenu1.popup();

Answer 1

就是把原来的标题栏隐藏，然后用自己的代码去管理，
有一个哥们说移动，呵呵，那就要在事件是发消息解决啦。/*==============================================
     天若有缘百年孤独又何妨 
                       尘浪无边一夜春风也潇洒     QQ：30002580   EMail:[email protected]
 ==============================================*/

Answer 2

首先自定义一个过程如下所示：
    procedure WMnchittest(var msg:TWmnchittest); message WM_nchittest；
监视WINDOWS的WM_nchittest消息。
然后根据下面过程的代码即可使用位图代替标题栏。
如下所示:
procedure WMnchittest(var msg:TWmnchittest);
begin
  inherited;
  if ((msg.XPos>form1.left+40)and(msg.XPos<form1.left+530))and((msg.YPos>form1.top+3)and(msg.YPos<form1.top+45)) then msg.Result:=htcaption;
end;
按以上的方法即可实现；
我已在DELPHI 3,4,5,6中都可以实现。