QQ 面板实现方法（delphi）（二）
摘要：
等写完了再贴上来 阅读全文
posted @ 2011-12-13 21:23 舟山牙医 阅读(301) 评论(0) 推荐(0) 编辑
QQ 面板实现方法（delphi）（一）
摘要：
实现 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 阅读全文
posted @ 2011-12-13 21:16 舟山牙医 阅读(1191) 评论(2) 推荐(0) 编辑