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 关闭指定窗口

Delphi程序禁止结束进程

Delphi 向其他程序发送模拟按键

Delphi 复杂数据类型

Delphi 检查自己的进程的父进程

Delphi fmx 获取控件句柄

Delphi原生方法取得文件的md5

Delphi sysutils.wraptext - 换行

Delphi readln 读取一行文本

Delphi chromium post

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

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