Hапример, так:
procedure TMyForm.CreateParams(var Params: TCreateParams); {override;}
begin
inherited CreateParams(Params); {CreateWindowEx}
Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;
Max Rusov
(2:5030/456.1)Обратите внимание, что мы делаем override.
Вы можете написать просто Inherited, без указания имени метода (если оно совпадает с именем данного) и аргуметов (в таком случае передаются в качестве аргументов исходные).
Часто возникает противоположная по смыслу задача - убрать окна с панели задач (в случае, если они создаются в DLL). В таком случае используйте стиль WS_Ex_ToolWindow.