Delphi中Parent与调用API中的SetParent引起的问题

最新推荐文章于 2024-05-14 00:17:36 发布

原创最新推荐文章于 2024-05-14 00:17:36 发布 · 3.8k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #api #integer #windows #null #user

Delphi 专栏收录该内容

16 篇文章

订阅专栏

在Delphi项目中，尝试将Form Dock到PageControl时遇到问题，设置Form的Parent属性后，Form上的组件失去焦点，无法进行删除和复制操作。通过调用API SetParent解决了这个问题。

此问题是在项目中，因为打开的画面需像DelphiXe的显示风格一样来显示。所有的Form都需要Dock到一个PageControl的容器中，开始的时候对新创建的Form的Parent属性进行设置他的值。此时运行程序后发现Form上的所有元件都不能进行删除与复制操作，也就是无法获得焦点！后经验证，此问题需调用API的SetParent来处理，代码如下：

var  
  vPage: TcxTabSheet;  
  C: TFrameDesignContainer;  
  i: integer;  
begin  
  vPage := TcxTabSheet.Create(Self);  
  vPage.PageControl := PageControl_Design;  
  PageControl_Design.ActivePage := vPage;  
  vPage.Caption := ExtractFileName(AFileName);  
  vPage.Tag := integer(AForm);  
  C := TFrameDesignContainer.Create(Self);  
  C.Name := 'XX' + InttoStr(gFrameIndex);  
  Inc(gFrameIndex);  
  C.Parent := vPage;  
  C.Align := alClient;  
  AForm.BorderStyle := bsNone;  
  //AForm.Parent :=C.ScrollBox_Main;   
  Windows.SetParent(AForm.Handle,C.ScrollBox_Main.Handle);  
  AForm.FreeNotification(Self);  
  AForm.WindowState := wsNormal;  
  AForm.Anchors := [];  
  AForm.Left := AcropriseOptionService.GetDesignRulerHeight;  
  AForm.Top := AcropriseOptionService.GetDesignRulerHeight;  
  AForm.Show;  
  PostMessage(AForm.Handle, WM_ACTIVATE, WA_ACTIVE, 0);  
  Windows.SetWindowPos(AForm.Handle, 0,  
    AcropriseOptionService.GetDesignRulerHeight,  
    AcropriseOptionService.GetDesignRulerHeight, AForm.Width, AForm.Height,  
    SWP_NOZORDER + SWP_NOACTIVATE);  
  TForm_Temp(AForm).SetDesigning(true);  
end;

Windows.SetParet的方法原型如下： 

view plaincopy to clipboardprint?
SetParent - 函数功能  
函数功能：该函数改变指定子窗口的父窗口。  
  
    函数原型：HWND SetParent（HWND hWndChild,HWND hWndNewParent）；  
SetParent - 参数  
  
    参数：  
  
    hWndChild:子窗口句柄。  
  
    hWndNewParent:新的父窗口句柄。如果该参数是NULL，则桌面窗口就成为新的父窗口。在WindowsNT5.0中，如果参数为HWND_MESSAGE,则子窗口成为消息窗口。  
  
    返回值：如果函数成功，返回值为子窗口的原父窗口句柄；如果函数失败，返回值为NULL。若想获得多错误信息，请调用GetLastError函数。  
  
    备注：应用程序可以使用SetParent函数来设置弹出式窗口，层叠窗口或子窗口的父窗口。新的窗口与窗口必须属于同一应用程序。  
  
    如果参数hWndChild标识的窗口是可见的，系统将执行适当的重画和刷新动作。  
  
    由于兼容的原因，对于将改变父窗口的子窗口，SetParent函数并不改变该子窗口的WS_CHILO WS_POPUP风格。所以，如果hWndNewParent参数为NULL，就应在调用SetParent函数之后清空WS_CHILD位并且设置为WS_POPUP风格。相反的，如果hWndNewParent参数不为NULL并且在此之前窗口是桌面窗口的子窗口，就应在调用SetParent函数之前清空WS_POPUP位井设置WS_CHILD风格。  
  
    速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：1.0以上版本：头文件：Winuser.h;库文件：user32.lib。