如何使窗体在用户按下显示桌面之后不会隐藏(不是将它始终置前)谢谢各位

Question

如何使窗体在用户按下显示桌面之后不会隐藏(不是将它始终置前)谢谢各位

Answer 1

重载Createparams，改变窗体风格，设置父句柄为桌面，代码大概如下：private 
   procedure Createparams(var params: TCreateParams);override;
procedure TForm1.Createparams(var params: TCreateParams);
begin
  inherited CreateParams(Params);
  with params do
  begin
    Style:=WS_POPUP;
    ExStyle :=  WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE;
    WndParent := GetWindow(FindWindow('Progman', nil), GW_CHILD);
  end;
end;