Delphi7里面的控件的位置一般是相对位置,比如说button在一个panel中,那么button.Top就是相对于panel的上边距离,而不是form的距离。那么如何得到相对于form的位置呢。请参照如下代码:
ctl_point.X := 0;
ctl_point.Y := 0;
ctl_point := ctl.ClientToScreen(ctl_point);
ctl_point := ownerform.ScreenToClient(ctl_point);
Delphi7里面的控件的位置一般是相对位置,比如说button在一个panel中,那么button.Top就是相对于panel的上边距离,而不是form的距离。那么如何得到相对于form的位置呢。请参照如下代码:
ctl_point.X := 0;
ctl_point.Y := 0;
ctl_point := ctl.ClientToScreen(ctl_point);
ctl_point := ownerform.ScreenToClient(ctl_point);