重载Createparams函数的问题？？
procedure TForm1.Createparams(var params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
begin
Style := WS_POPUP or SW_HIDE;
ExStyle := WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
WndParent := GetWindow(FindWindow( 'Progman ', nil), GW_CHILD);
//窗体显示后怎么再次更改这个值WndParent？？？？
end;
end;

[解决办法]
SetParent