VB6 窗体钉在桌面上

来源：百度知道 编辑：UC知道 时间：2024/06/14 22:39:17
不是“总在最上”！而是让窗体总在其他窗口下，并且“显示桌面”也无法将它最小化。

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;

这是delphi的方法...