Delphi - Delphi
|
Сообщения: 196 |
Профиль | Сайт | Отправить PM | Цитировать Типа как dropbasket в Net Vampire или Flash Get. Чтобы никогда не сворачивалось. Какие есть варианты?
|
|
Отправлено: 18:55, 05-04-2004 |
Модер Сообщения: 1716
|
Профиль | Сайт | Отправить PM | Цитировать Что-то примерно такое
hMenu := GetSystemMenu(hWindow, FALSE); DeleteMenu(hMenu, MF_BYCOMMAND, SC_MINIMIZE); hWindow сначала надо взять из Form-ы, потом из Application (чтоб не сворачивался из панели задач). Если не достаточно - будем дальше думать. |
------- Отправлено: 21:25, 05-04-2004 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Сообщения: 196
|
Профиль | Сайт | Отправить PM | Цитировать vasketsov у меня BorderStyle:=bsNone поэтому убирать ту кнопочку нет смысла (ее и так нет), надо бы сделать так чтобы приложение не было видно на панели задач (пробовал ShowWindow(Application.Handle, sw_Hide), не помогает), и чтобы его нельзя было свернуть даже командой "свернуть все окна".
|
Отправлено: 22:30, 05-04-2004 | #3 |
Старый параноик Сообщения: 2423
|
Профиль | Отправить PM | Цитировать Скрыть кнопку с таскбара - этого в сети полно, например:
procedure TForm1.FormCreate(Sender: TObject) ; begin ShowWindow(Application.Handle, SW_HIDE) ; SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ; ShowWindow(Application.Handle, SW_SHOW) ; end; |
Отправлено: 09:40, 06-04-2004 | #4 |
Сообщения: 196
|
Профиль | Сайт | Отправить PM | Цитировать hasherfrog спасибо, код работает .
Цитата:
|
||
Отправлено: 17:02, 06-04-2004 | #5 |
Модер Сообщения: 1716
|
Профиль | Сайт | Отправить PM | Цитировать Kuper
Попробуй придушить сообщение WM_SYSCOMMAND с кодом SC_MINIMIZE |
------- Отправлено: 20:14, 06-04-2004 | #6 |
Сообщения: 196
|
Профиль | Сайт | Отправить PM | Цитировать помогает лишь при нажатии на кнопочку свернуть в заголовке окна
|
Отправлено: 21:10, 06-04-2004 | #7 |
Сообщения: 196
|
Профиль | Сайт | Отправить PM | Цитировать Как-то просто должно делаться, я уверен, но вот как?
|
Отправлено: 19:38, 07-04-2004 | #8 |
Модер Сообщения: 1716
|
Профиль | Сайт | Отправить PM | Цитировать Kuper
А как не помогает? Как сворачиваешь? |
------- Отправлено: 19:33, 08-04-2004 | #9 |
Сообщения: 196
|
Профиль | Сайт | Отправить PM | Цитировать vasketsov
procedure Min(var Msg: TMessage); message WM_SYSCOMMAND; .................... procedure TForm1.Min(var Msg: TMessage); begin if Msg.WParam = SC_MINIMIZE then else inherited; end; Рыл в инете и надыбал исходник проги на с++, там это самое несворачиваемое окошко является диалоговым в режиме Modal (главное окно там ваще невидимое). Но я еще не совсем разобрался как ето реализовано. |
Отправлено: 22:29, 08-04-2004 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Delphi - Delphi | UpperCase на Delphi 7 | Cognolio | Программирование и базы данных | 3 | 26-01-2006 15:42 | |
Delphi - Delphi | Surround | Программирование и базы данных | 11 | 10-01-2004 22:13 | |
Delphi - Delphi | Zx | Программирование и базы данных | 3 | 27-08-2003 10:19 | |
Delphi - Delphi | Roman Go | Программирование и базы данных | 9 | 25-12-2002 15:48 | |
Delphi - Delphi | Roman Go | Программирование и базы данных | 11 | 11-12-2002 14:43 |
|