delphi检测当前鼠标点击处是否在指定控件内部

本文整理自网络，侵删。

 
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  mouse:TPoint;
  mouse_in_memo:Boolean;
begin
  GetCursorPos(mouse);
  mouse:=ScreenToClient(mouse);
  if mouse.Y <= (Memo1.Top+Memo1.Height) then
    mouse_in_memo:=true
  else
    mouse_in_memo:=false;
  N6.Enabled:=mouse_in_memo;
  N7.Enabled:=mouse_in_memo;
end;

http://blog.chinaunix.net/uid-20564848-id-74478.html
 

相关阅读 >>

Delphi using windows print spooler to run your file

Delphi复制整个文件夹(当然包括嵌套文件夹)

Delphi 修改exe应用程序图标

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

Delphi 判断文本是否包含多个关键词之一

Delphi android实例-读取设备联系人(xe8+小米2)

Delphi 利用datasnap进行数据流(tstream)的传递

Delphi psafearray与tbytes类型转换

Delphi 取得桌面文件夹的路径和取得我的文档的路径

扩展 Delphi 线程 使之传递参数.（给匿名线程增加参数）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi检测当前鼠标点击处是否在指定控件内部