Скачать: CL | DM;

Убрать приложение из Таскбара   Найти похожие ветки 

← →
Senti   (2004-05-28 21:53) [0]

Вот столкнулся с проблемой... не могу убрать окно приложения из таскбара....
У меня есть иконка в трее.. И я не хочу чтобы на таскбаре было окно приложения.

Как это можно сделать ... Знаю что ламерский вопрос... Но никогда не занимался работой с формами...

Спасибо

---

← →
WinLamka   (2004-05-28 21:54) [1]

Form.hide;

---

← →
Senti   (2004-05-28 22:03) [2]

Да нет это не то.... Мне нужно чтобы форма отображалась... Но на таскбаре не было приложения...

---

← →
TUser ©   (2004-05-28 22:34) [3]

Перекрыть CreateParams.

---

← →
sniknik ©   (2004-05-28 22:44) [4]

ShowWindow(Application.Handle, SW_HIDE);

---

← →
TUser ©   (2004-05-28 23:06) [5]

Ой. Извиняюсь за [3]. Подумал о том, как добавить на таскбар кнопку для формы *)

---

← →
Senti   (2004-05-31 03:24) [6]

А как сделать чтобы при старте программы не показывалось ? Эта функция работает только при запушенной программе....

---

← →
Fay ©   (2004-05-31 06:48) [7]

2Senti   (31.05.04 03:24) [6]
Прочитайте сами, что Вы спросили... 8)
Кстати, компьютер ТОЖЕ (!) должен быть включен.

---

← →
grom   (2004-05-31 09:11) [8]

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

---

← →
Леприкон ©   (2004-05-31 09:23) [9]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622499&n=15

---

← →
Serge ©   (2004-05-31 09:26) [10]

Вариант [8] насколько я помню хорош только до первой минимизации формы, попробуй так (в файле проекта)

...
{$R *.res}
Var ExtendedStyle : word;
...
Begin
 Application.Initialize;
 ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
 SetWindowLong(Application.Handle, GWL_EXSTYLE, (ExtendedStyle And Not (WS_CAPTION)) Or
   WS_EX_TOOLWINDOW And Not WS_EX_APPWINDOW);
 Application.CreateForm(TForm1, Form1);
//  Application.ShowMainForm:=False; // усли тебе эот надо
 Application.Run;
End.

---

← →
Iraizor ©   (2004-05-31 09:28) [11]

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   procedure FormPaint(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
  firstonpaint:boolean=true;
implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
if firstonpaint=true then begin showwindow(application.Handle,sw_hide);firstonpaint:=false;end;

end;

end.

---

← →
grom   (2004-05-31 10:13) [12]

[10] при минимизации формы мы ее просто скрываем =Hide=
 public { Public declarations }
     procedure Sys(var M:TMessage);message WM_SYSCOMMAND;
...............................
procedure TForm1.Sys(var M:TMessage);
begin
if M.WParam=SC_MINIMIZE then begin
Hide;
exit;
end ;
inherited;
end;

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

---

← →
renat-me ©   (2004-05-31 10:23) [13]

А вроде все легче - borderstyle=bsnone или(и) поменять стиль у формы, чтобы было тип настройки(?)... сам посмотри как это называется. У меня это наоборот мешалось - форма есть, а снизу пусто!!!

---

← →
Senti   (2004-05-31 10:58) [14]

Спасибо всем за помощь... Реализовал все просто....
При старте Application.ShowMainForm:=False;
Затем в событиях формы на минимизацию, восстановление... прописан код ShowWindow(Application.Handle, SW_HIDE);
Все работет прекрасно...

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.022 c