急啊，高手快来

Question

请问怎样做一个效果就是和QQ一样，当窗口隐藏到屏幕上头的时候，如果鼠标移动到上面，窗口就慢慢的移动下来，鼠标移开又慢慢移动上去隐藏，请给与帮助啊，最好能给点代码，谢！

Answer 1

QQ没用过，不过通过设置Form的高度应该可以实现吧for i := 0 to 500 do
begin
  Form.Hight := Form.Hight + 1;
  if Form.hight = 300 then Break;
end;

Answer 2

用个timer判断鼠标的位置，靠近应用程序边缘就展开。离开同样！

Answer 3

我这有源代码，是将窗体改为从Appbar继承下来的
你可以给我发消息，将Email发给我，我给你传过来