Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как спрятать кнопку программы на панели задач в Win2K


Term ©   (2004-09-15 11:19:00) 

Как спрятать кнопку программы на панели задач в Win2K
в 98-й просто, а как в Win2K ???


Baga   (2004-10-07 15:32:00) [1]

У меня на ApplicationEvents ругается, может чтото в usesнадо добавить?


Term   (2004-09-15 12:41:00) [2]

всё рабоает !!!!!!! спасибо


Игорь Шевченко   (2004-09-15 12:37:00) [3]

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
end;

?


Term   (2004-09-15 12:20:00) [4]

:)))))))))) я заметил,
но если минимизировать из меню правой кнопки, то кнопка появляется, а мне нужно чтобы приложение при сворачивании формы не отображалось на TaskBare я в трэй поместил иконку, и чтобы разворачивать оттуда.


Игорь Шевченко   (2004-09-15 12:12:00) [5]


> если приложение минимизируется


Это - не минизируется :)


Term   (2004-09-15 11:54:00) [6]

чуток нето
если приложение минимизируется кнопка появляется


Term   (2004-09-15 11:47:00) [7]

народ как енто есделать???


Игорь Шевченко   (2004-09-15 11:47:00) [8]


> Как спрятать кнопку программы на панели задач в Win2K


unit main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
 TForm1 = class(TForm)
   procedure FormShow(Sender: TObject);
 protected
   procedure CreateParams (var Params : TCreateParams); override;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
 inherited;
 with Params do begin
   Style := Style or WS_POPUP;
   ExStyle := ExStyle or WS_EX_TOOLWINDOW;
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
end;

end.


Term   (2004-09-15 11:40:00) [9]

мне нужно держать приложение в минимизированном виде и чтобы при этом не было кнопки на панели задач

showwindow(application.handle,sw_hide);
так нету кнопки, но если приложение минизируется то кнопка появляется


Term   (2004-09-15 11:35:00) [10]

а нет всё норма :)


Term   (2004-09-15 11:27:00) [11]

в 2000 так не прячется в том то и дело ...


TUser   (2004-09-15 11:22:00) [12]

showwindow(application.handle,sw_hide);

А разве в 98 не так?


Наверх

Титульная страница Поиск, карта сайта Написать письмо