给和我遇到同样问题的朋友.
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;