Question

所以目前我有form ，粉红色盒子下方的部分是透明的，所以盒子里的橙色红色是我的壁纸。

我想要做的是另一种形式，如this（其中红色框是另一种形式）。每当我移动表单1时，红色表单也保持相对于表单1.我还需要红色表单在表单1上下滚动时遵循表单1.

这可能吗？如果是这样的话？我应该获得当前监视器的分辨率并进行数学计算，还是什么？

Answer 1

试试这个

在Form1_Load事件

library(sp)
library(raster)
library(maptools)
data(wrld_simpl)

PS <- matrix( c(-32.98000, 154.000000, 36.94625, 8.212916,-37.81430, -57.479584,-19.77236, -40.019028,-25.70459, -48.473195,-22.47125, -41.859027,-28.08153, -48.627082, 10.56000,  39.090000,50.50000,  50.600000, 52.50000,   5.700000), ncol=2, byrow=TRUE)
ps <- PS[,2:1]

sp <- SpatialPoints(ps)
crs(sp) = crs(wrld_simpl)
i <- sp %over% wrld_simpl
marine <- is.na(i$ISO3)

spm <- sp[marine, ]

plot(wrld_simpl)
points(ps, pch=20, col='red')
points(spm, pch=20, col='blue')

需要一种方法来移动另一种形式的表单

1 个答案: