Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

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

← →
Term   (2004-09-15 11:19) [0]

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

---

← →
TUser ©   (2004-09-15 11:22) [1]

showwindow(application.handle,sw_hide);

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

---

← →
Term   (2004-09-15 11:27) [2]

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

---

← →
Term   (2004-09-15 11:35) [3]

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

---

← →
Term   (2004-09-15 11:40) [4]

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

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

---

← →
Term   (2004-09-15 11:47) [5]

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

---

← →
Игорь Шевченко ©   (2004-09-15 11:47) [6]

> Как спрятать кнопку программы на панели задач в 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:54) [7]

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

---

← →
Игорь Шевченко ©   (2004-09-15 12:12) [8]

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


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

---

← →
Term   (2004-09-15 12:20) [9]

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

---

← →
Игорь Шевченко ©   (2004-09-15 12:37) [10]

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

?

---

← →
Term   (2004-09-15 12:41) [11]

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

---

← →
Baga   (2004-10-07 15:32) [12]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.026 c