我遇到的问题汇总

    技术2022-05-11  85

     给和我遇到同样问题的朋友.

    1.怎样实现像QQ消息窗口一样,每个都显示在任务栏上!解决方法1:转自::smiler007(笑一笑)在每个form处写上这么一段,就可以了申明处写上procedure CreateParams(var Params: TCreateParams); override;实现处写上procedure TForm1.CreateParams(var Params: TCreateParams);begin  inherited;  //不允许最大化和改变窗口大小  Params.Style:=Params.Style and not WS_SIZEBOX  and not WS_MAXIMIZEBOX;   //在任务栏上显示窗口  Params.WndParent := GetDesktopWindow;end;


    最新回复(0)