基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

实现无边框窗体拖放，并带检测鼠标位置

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  case (Message.Msg) of
    WM_MOUSEMOVE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_MOUSEMOVE');
    end;
    WM_MOUSEHOVER:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_MOUSEHOVER');
    end;
    WM_MOUSELEAVE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_MOUSELEAVE');
    end;
    CM_MOUSEENTER:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'CM_MOUSEENTER');
    end;
    CM_MOUSELEAVE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'CM_MOUSELEAVE');
    end;
    WM_KILLFOCUS:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_KILLFOCUS');
    end;
    CM_HITTEST:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'CM_HITTEST');
    end;
    CM_SHOWINGCHANGED:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'CM_SHOWINGCHANGED');
    end;
    CM_SHOWHINTCHANGED:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'CM_SHOWHINTCHANGED');
    end;
    WM_SYSCOMMAND:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_SYSCOMMAND');
    end;
    WA_ACTIVE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WA_ACTIVE');

    end;
    WA_INACTIVE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WA_INACTIVE');
      if MessageDlg('are you close?', mtConfirmation, [mbYes, mbNo], 0)= mrYes  then
        Close;
    end;
    WM_ACTIVATE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_ACTIVATE');
      FFormReady := false;

    end;
    WM_MOUSEACTIVATE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_MOUSEACTIVATE');
    end;
    WM_SETFOCUS:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss', Now) 'WM_SETFOCUS');
    end;
    WM_NCACTIVATE:
    begin
      mm1.Lines.Append(FormatDateTime('hh:nn:ss ', Now) 'WM_NCACTIVATE');
      if FFormReady then Exit;
      Close;

    end;
  end;

end;