Как убрать кнопочку с нижней полосы ???

← →
Kvorubin © (2003-12-16 12:42) [0]

Всемогущие программеры!!!
Когда открываешь прошку, на траскбаре появляется типо кнопочка, как убрать???

← →
TUser © (2003-12-16 12:45) [1]

ShowWindow(Application.Handle, SW_HIDE); - написать такое в OnShow главной формы.

← →
Семен Сорокин © (2003-12-16 12:47) [2]

на траскбаре появляется типо кнопочка
это "пуск"/"start" которая?

← →
serge (2003-12-16 12:52) [3]

SetWindowLong(....exStyle or not WS_EX_APPWINDOW .... )

← →
Kvorubin © (2003-12-16 13:08) [4]

Спасибо усем!!! помог первый ответ!!!

← →
serge (2003-12-16 13:21) [5]

А ты попробуй минимизировать окно а потом востановить его

← →
Dimka Maslov © (2003-12-16 14:03) [6]

c SW_HIDE прикол работает только до первого сворачивания. Для избавления от значка на таскбаре нужен более глобавльный подход, а именно -- правка модуля Forms.
Надо скопировать его в папку с проектом, явно подключить к проекту, выйти из Delphi, загрузить её снова и сбелать проекту Build. Затем найти метод TApplication.UpdateVisible в начало которого вставить Exit.

> А ты попробуй минимизировать окно а потом востановить его

А у меня окно не сворачиваемое :), оно как диалог, во!

Вот еще решение (кажется с delphiWorld или еще откуда-то)
program Project1; uses Forms, Windows, Unit1 in "Unit1.pas" {ClockForm1}; var ExtendedStyle:integer; {$R *.res} begin Application.Initialize; ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW}); Application.CreateForm(TClockForm1, ClockForm1); Application.Run; end.

Во, вот это решение я и искал, огромное спасибо!!!

Как убрать кнопочку с нижней полосы ??? Найти похожие ветки