Delphi 2
Форма 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;
|
- Neil Rubenking
Nomadic дополняет:
Обратите внимание, что мы делаем override. Вы можете написать просто Inherited, без указания имени метода (если оно совпадает с именем данного) и аргуметов (в таком случае передаются в качестве аргументов исходные). Часто возникает противоположная по смыслу задача - убрать окна с панели задач (в случае, если они создаются в DLL). В таком случае используйте стиль WS_Ex_ToolWindow. [000972]