把程序作成两岸通形式的自动隐藏窗体其实很简单，只要截取CM_MOUSEENTER和CM_MOUSELEAVE消息，判断鼠标是否已经离开窗体区域来显示和隐藏窗体就可以了。在窗体声明的public段添加：
procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

实现段：
procedure TFormZDDiabolo.CMMouseEnter(var msg:TMessage);
begin
  inherited;
  //添加你自己的控制语句；
end;

procedure TFormZDDiabolo.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  //添加你自己的控制语句；
end;