★★子窗体最小化时隐藏标题栏显示客户区,如何实现,请大家帮帮我!

Question

正常子窗体最小化时显示标题栏,如何让子窗体最小化时隐匿标题栏,显示客户区的一片区域呢,比例显示客户区的(1,1,100,100)这个区域?
请高手指教!

Answer 1

var
   OldStyle : DWORD;
begin
    OldStyle := GetWindowLong(Handle,GWL_STYLE);
    SetWindowLong(Handle,GWL_STYLE, OldStyle -WS_CAPTION);
    SetBounds(Left,Top,ClientWidth,ClientHeight);
end;正常时用这个方法可以实现,但当窗体最小化时就不起作用了

Answer 2

有人提示我截获这个消息WM_NCCALCSIZE好像也不起作用呀！

Answer 3

const
   WM_selfdinifi = 100;...procedure MiniNoCaption(var msg: TMessage); message WM_selfdinifi;
begin
   //在这里面用findwindow来查找那个要最小化的窗口。然后再做相应的处理，看看行吗？
end;

Answer 4

//////////////
/            /
/  bmp 图像  /
/            /
//////////////
/  Form1     /
//////////////这就是最终的最小化后的效果
没有标题栏,上面是一个小BMP图像,下面是一行文字