TaskBar

← →
BaRToV (2003-05-21 01:45) [0]

Не получается скрыть из TaskBar"а.
Под Дэлфи работало, под КОЛ тоже, но меняется форма...

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var i: LongInt;
begin
i := GetWindowLong(Applet.Handle, GWL_EXSTYLE);
SetWindowLong(Applet.Handle, GWL_EXSTYLE, i or WS_EX_TOOLWINDOW);
end;

← →
mike.dld © (2003-05-21 02:12) [1]

Есть tKOLApplet, а у него свойство Visible.

← →
BaRToV (2003-05-21 03:24) [2]

> Есть tKOLApplet, а у него свойство Visible.
;-)
Это когда форму видно, а иконку в TaskBar"е (не путать с systemtray) НЕТ.

← →
Gandalf © (2003-05-21 09:28) [3]

Буду краток http://delphimaster.net/view/11-1051802905/

Или я не так понял вопрос?

← →
BaRToV (2003-05-21 12:13) [4]

> Или я не так понял вопрос?
Ага не так... Чтоб форма в панели задач не отображалась!!!

← →
mdw © (2003-05-21 12:50) [5]

Скрать из TaskBar:
Applet.Visible:= False;

Показать из TaskBar:
Applet.Visible:= True;

← →
BaRToV (2003-05-21 13:17) [6]

2 mdw ©

Но при этом мне нужно, чтоб форму было видно.

вот здесь пример - InetTime в "панели задач" нету.
http://delphikol.narod.ru/temp/temp.gif

← →
mdw © (2003-05-21 13:33) [7]

Но при этом мне нужно, чтоб форму было видно.

Уменя так и есть, форма видна, а в TaskBar нет. Специально пробовал:
procedure TKOL_Form.Button2Click(Sender: PObj);
begin
Applet.Visible:= not Applet.Visible;
end;
Может дело в windows? У меня 2000.

← →
BaRToV (2003-05-21 13:50) [8]

2 Может дело в windows? У меня 2000.
Так я ж говорю, что в VCL все работает.
На каритнке, моя прога.

← →
mdw © (2003-05-21 13:53) [9]

а Applet.Visible:= False; не работает?

← →
BaRToV (2003-05-21 14:13) [10]

> а Applet.Visible:= False; не работает?

НЭТ!!!

> Ага не так... Чтоб форма в панели задач не отображалась!!!

Значит, я правильно понял... Почитай внимательно. Правда там несильно от совета mdw отличает (чуть подробнее только). Насчет того что не работает, был такой баг (см. там же). Сам не видел, решился сам собой... Может вышлешь нерабочий вариант - посмотрю.

А кинь на мыло я у себя попробую

← →
BaRToV (2003-05-21 15:17) [13]

2 All

Просто втсавьте в обрабочик создании формы:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var i: LongInt;
begin
i := GetWindowLong(Applet.Handle, GWL_EXSTYLE);
SetWindowLong(Applet.Handle, GWL_EXSTYLE, i or WS_EX_TOOLWINDOW);
end;

Все работает, но исчезают кнопки минимизации окна и "развернуть", походу дела становится сталь ДИАЛОГОВОГО окна, как это избежать.

> Просто втсавьте в обрабочик создании формы:
>
> procedure TForm1.KOLForm1FormCreate(Sender: PObj);
> var i: LongInt;
> begin
> i := GetWindowLong(Applet.Handle, GWL_EXSTYLE);
> SetWindowLong(Applet.Handle, GWL_EXSTYLE, i or WS_EX_TOOLWINDOW);
> end;
>
> Все работает, но исчезают кнопки минимизации окна и "развернуть",
> походу дела становится сталь ДИАЛОГОВОГО окна, как это избежать.

Знаю пробовал, это вроде никак не лечится (ты сам стиль поставил - Tool). Тебе нужно иметь фиктивное первичное окно и его прятать - тогда уйдет кнопка с TaskBar"а, в данном случаи это Applet. БРОСАЙ на форму KOLApplet и пиши Applet.Hide; - все. У меня рабоает.

TaskBar Найти похожие ветки