Форма Delphi на панели задач
|
|
Вот что вы можете сделать, чтобы заставить форму Delphi иметь кнопку на панели задач: type TForm2 = class(TForm) private { Private declarations } procedure CreateParams(VAR Params: TCreateParams); override; ... procedure TForm2.CreateParams(VAR Params: TCreateParams); begin Inherited CreateParams(Params); WITH Params DO ExStyle := ExStyle OR WS_EX_APPWINDOW; end; Обратите внимание, что мы делаем override. Вы можете написать просто Inherited, без указания имени метода (если оно совпадает с именем данного) и аргуметов (в таком случае передаются в качестве аргументов исходные). Часто возникает противоположная по смыслу задача - убрать окна с панели задач (в случае, если они создаются в DLL). В таком случае используйте стиль WS_Ex_ToolWindow. |