随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

//声明:
MoveWindow(
  hWnd: HWND;               {窗口句柄}
  X, Y: Integer;            {位置}
  nWidth, nHeight: Integer; {大小}
  bRepaint: BOOL            {是否重绘}
): BOOL;

//举例: procedure TForm1.Button1Click(Sender: TObject); begin   MoveWindow(Button1.Handle, 0, 0, ClientWidth, ClientHeight, True); end;
//效果图:

posted on   万一  阅读(15623)  评论(5编辑  收藏  举报


点击右上角即可分享
微信分享提示