摘要： 等写完了再贴上来 阅读全文

摘要： 实现 QQ面板的两个功能 ：1.接近屏幕边缘时，自动隐藏。2. 收缩式面板；一。自动隐藏：procedure TForm1.WMMOVING(var Msg: TMessage);begin inherited; with PRect(Msg.LParam)^ do begin Left := Min(Max(0, Left), Screen.Width - Width); Top := Min(Max(0, Top), Screen.Height - Height); Right := Min(Max(Width, Right), Screen.Width); Bottom := Min(M 阅读全文