窗口控件位置自适应效果

易语言 2020-06-08 15:25:54

GetWindowRect (窗口控件句柄组 [i], rect)
重定义数组 (窗口控件详细组, 真, 取数组成员数 (窗口控件详细组) + 1)
窗口控件详细组 [取数组成员数 (窗口控件详细组)].hwnd = 窗口控件句柄组 [i]
窗口控件详细组 [取数组成员数 (窗口控件详细组)].l = rect.Left - 左边
窗口控件详细组 [取数组成员数 (窗口控件详细组)].t = rect.Top - 顶边
窗口控件详细组 [取数组成员数 (窗口控件详细组)].r = rect.Right - rect.Left
窗口控件详细组 [取数组成员数 (窗口控件详细组)].b = rect.Bottom - rect.Top