首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
您现在的位置: 程式碼之家 >> 編程語言 >  >> 更多程式語言 >> Delphi

GDI+ 區域點擊測試:IsVisible 判斷滑鼠是否在區域內範例

     編輯:Delphi

效果展示

點擊測試動畫

區域構建:矩形減去內切橢圓


rt := ClientRect; InflateRect(rt, -20, -20);
rgn := TGPRegion.Create(MakeRect(rt));
InflateRect(rt, -2, -2);
path := TGPGraphicsPath.Create; path.AddEllipse(MakeRect(rt));
rgn.Exclude(path); // 形成環形區域
path.Free;

滑鼠移動測試


procedure TForm1.FormMouseMove(...);
begin
  Text := 'Form1';
  if rgn.IsVisible(X, Y) then Text := '在區域中';
end;

標題列即時顯示滑鼠是否進入環形區域,展示 IsVisible 點包含測試。

  1. 上一篇文章:
  2. 下一篇文章:
Copyright © 程式碼之家 All Rights Reserved