GetActiveWindow - 获取当前活动窗口的句柄/ FlashWindow - 闪烁窗口/改变矩形大小

最新推荐文章于 2022-09-05 13:46:20 发布

huang714

最新推荐文章于 2022-09-05 13:46:20 发布

阅读量1.2k

点赞数 1

分类专栏： Delphi API

本文链接：https://blog.csdn.net/huang714/article/details/107337278

版权

Delphi 同时被 2 个专栏收录

44 篇文章 1 订阅

订阅专栏

API

11 篇文章 1 订阅

订阅专栏

GetActiveWindow - 获取当前活动窗口的句柄
//声明:
  GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄}


//举例:
var
  h: HWND;
begin
  h := GetActiveWindow;
  FlashWindow(h, True);
end;

FlashWindow - 闪烁窗口

//声明:
FlashWindow(
  hWnd: HWND;   {窗口句柄}
  bInvert: BOOL {设为 True 才会闪烁}
): BOOL;


//举例:
begin
  FlashWindow(Handle, True);
end;

改变矩形大小

/声明:
InflateRect(
  var lprc: TRect; {要修改的矩形}
  dx, dy: Integer  {变化值}
): BOOL;


//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
const
  s = '%d,%d,%d,%d';
begin
  R := Rect(60, 60, 200, 150);

  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));

  InflateRect(R, 20, 20);
  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));

  InflateRect(R, -40, -40);
  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));
end;