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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.05051589012146 seconds