获取窗体[Form1]的四个角的坐标:
var
rect: TRect;
begin
GetWindowRect(Form1.Handle, rect);
ShowMessage(\\'窗体左上角坐标:(\\'+IntToStr(rect.Left) + \\', \\' + IntToStr(rect.Top)+\\')\\');
ShowMessage(\\'窗体左下角坐标:(\\'+IntToStr(rect.Left) + \\', \\' + IntToStr(rect.Bottom)+\\')\\');
ShowMessage(\\'窗体右上角坐标:(\\'+IntToStr(rect.Right) + \\', \\' + IntToStr(rect.Top)+\\')\\');
ShowMessage(\\'窗体右下角坐标:(\\'+IntToStr(rect.Right) + \\', \\' + IntToStr(rect.Bottom)+\\')\\');
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024