Question

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

Answer 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;