DELPHI怎么捕获鼠标在本窗体以外范围的点击件事

2025-03-12 12:44:03

推荐回答（1个）

回答1：

获取窗体[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;