Кнопка программы на KOL в панели задач

← →
Olgerd © (2003-05-01 19:28) [0]

Люди, подскажите как показать/убрать сабж? Задолбался уже, ничего не получается.

← →
Gandalf © (2003-05-01 19:44) [1]

Хотя бы так:

program RegTest; uses Windows, Kol; var Window: PControl; begin Applet:=NewApplet("Demo App"); Window:=NewForm(Applet, "Demo Form").SetSize(400, 240).CenterOnParent; Window.Style:=WS_BORDER or WS_CAPTION or WS_SYSMENU ; Window.ExStyle:=WS_EX_DLGMODALFRAME; Window.Icon :=LoadIcon(0, IDI_WARNING); Applet.Visible:=False; Run(Applet); end.

← →
Olgerd © (2003-05-02 13:06) [2]

Тут прога появляется без кнопки в панели задач, а как теперь создать для неё кнопку на панели задач, надо вроде Style или ExStyle поменять, но подскажите каким образом?

← →
Gandalf © (2003-05-02 15:07) [3]

> Тут прога появляется без кнопки в панели задач, а как теперь
> создать для неё кнопку на панели задач, надо вроде Style
> или ExStyle поменять, но подскажите каким образом?

Дело обстоит так, Вин делает кнопку для ВСЕХ окон не имеющий владельца. Исключяение - ExStyle:=WS_EX_TOOLWINDOW; Как выход создание "фальш-окна", и его сделать хозяином проги, а потом уже прятать это фальш окно, с этим окном уберется и "кнопка". Реализация - бросаем на форму Applet. И пишем код:

Applet.Visible:=not Applet.Visible;

По его исполнению кнопка будет появлятся исчезать.

← →
Olgerd © (2003-05-03 01:43) [4]

Так что, получается без второй формы не обойтись? Мне надо создать главную пустую форму, туда перенести TKOlProject, а главную сделать второй. A нельзя как-нибудь c помощью SetParent менять владельца, взять ей окно Эксплорера владельцем поставить что ли.

← →
Gandalf © (2003-05-03 11:30) [5]

Так я и говорю бросай Applet"а на форму! У меня работает.

← →
Olgerd © (2003-05-03 13:12) [6]

А что с этой формой на которой Applet лежит, у неё что ли Width и Height по нулям поставить, мне ведь не нужно, чтобы она отображалась. Некрасиво как-то получается

← →
Gandalf © (2003-05-03 13:17) [7]

> А что с этой формой на которой Applet лежит, у неё что ли
> Width и Height по нулям поставить, мне ведь не нужно, чтобы
> она отображалась. Некрасиво как-то получается

Судя по реплике ты даже и не пробовал... САМ Applet который ты бросил и будет той самой формой (в понимании Win) которую ты будешь скрывать, чтобы пропадала кнопка из TaskBar"а (Applet.Visible:=not Applet.Visible;). А форма на которой лежит Applet эта твоя рабочая форма. Она у тебя видимая, бросай компоненты пиши код, радуйся жизни.

Может я что-то не так понял, но когда я просто бросил Applet на форму, как ты говорил, то у меня при Applet.Visible равным false исчезала и вся форма, когда же я сделал главной пустую форму, то всё нормально - при изменении VApplet.isible кнопочка в панели задач, то появлялась, то исчезала, а вторая форма, которая являлась действительно главной нормально висела.

Ммм... странно, не вышлешь глючный проект.

Какие-то глюки, наверное, у меня в проекте, создал новый проект - там все отлично работает, как ты и говорил, тогда взял в своём старом проекте удалил Applet и и заново на форму его кинул - всё заработало. Так и не понял в чём там дело было. Но всё равно огромное спасибо за помощь.

Кнопка программы на KOL в панели задач Найти похожие ветки