QQ风格程序的编写

      最近这两天用到QQ的地方比较多，总是拿来和别人交流，时间长了发现这个东西的设计挺好。在使用的时候可以通过鼠标激活窗口并显示出来，不用的时候自动隐藏也不占用宝贵的桌面空间，又联想到自己做的毕业设计，不禁想到我的毕业设计如果可以像QQ那样，是不是会更好一点？

      自己不懂技术，没事！百度一下！还好，网上关于这样程序的教程并不少，随手点了几个，在这里发现了一个教程，按照教程上做挺好，但是总感觉太复杂了点。

      作者第一个版本代码，完全可以运行，不过在到角上或者添加了新的控件之后，就会出现问题。在角上会出现闪烁的情况；在添加了新控件之后，鼠标移到控件上，窗口会自动隐藏。。。后面的代码我就没看，设了几个变量，来回存，有点乱，囧。试着修改了一下，通过改动量很小，只是改动了一下窗口隐藏了之后显示的条件。

      这里是我改动的代码：

 1procedure TForm1.Timer1Timer(Sender: TObject);
 2const cOffset = 2;
 3begin
 4  if ((Mouse.CursorPos.X >= Left) AND
 5     (Mouse.CursorPos.X <= (Left+Width)) AND
 6     (Mouse.CursorPos.Y >= Top) AND
 7     (Mouse.CursorPos.Y <= (Top+Height))) then//只修改了这里
 8  begin
 9    if akLeft in FAnchors then Left := 0;
    if akTop in FAnchors then Top := 0;
    if akRight in FAnchors then
      Left := Screen.Width - Width;
    if akBottom in FAnchors then
      Top := Screen.Height - Height;
  end else
  begin
    if akLeft in FAnchors then Left := -Width + cOffset;
    if akTop in FAnchors then Top := -Height + cOffset;
    if akRight in FAnchors then
      Left := Screen.Width - cOffset;
    if akBottom in FAnchors then
      Top := Screen.Height - cOffset;
  end;
end;

      打包后的文件在这里，包含了源代码，有兴趣的可以自己试着编写类似的程序，真的很不错，推荐试一试。完全不占用桌面空间，还能随时通过鼠标激活。