Почему в всех дельфи приложений не полное системное меню,

← →
AlexEgorov (2006-10-18 15:49) [0]

которое появляется при правом клике в панели задач на приложении (это там, где "Свернуть", "Переместить" и пр.).

Так вот, у дельфовых приложений нет пунктов "Переместить", "Размер" и "Развернуть".

Я нашёл решение, как их высветить: в OnCreate главной формы вызываю
GetSystemMenu(Application.Handle, True);

Все пункты теперь выдны, но не работают те, которые показались. Может кто знает решение?

← →
sniknik © (2006-10-18 16:12) [1]

> Почему в всех дельфи приложений не полное системное меню,
потому, что лишнее специально удаляют, ищи функцию DeleteMenu гдето в методах Application (модуль Forms).

> Может кто знает решение?
оставь как есть.

← →
Anatoly Podgoretsky © (2006-10-18 19:07) [2]

У меня ни в одной из версий Дельфи, подобный фефект не наблюдается.

← →
Kolan © (2006-10-18 19:39) [3]

> У меня ни в одной из версий Дельфи, подобный фефект не наблюдается.

Не в самой среде, а в проектах сделанных в ней... У меня присутствует...

AlexEgorov
Закрыть есть, а больше ничего не надо...

← →
Anatoly Podgoretsky © (2006-10-18 19:41) [4]

Как ты думаешь, про что я говорю?

← →
Kolan © (2006-10-18 19:49) [5]

> Как ты думаешь, про что я говорю?

Не знаю. У меня в D7 и 2006 фифект наблюдается...

← →
Anatoly Podgoretsky © (2006-10-18 19:58) [6]

У тебя много чего наблюдается. Ни в одной программе нет не полного меню, Д1 не помню.

← →
Kolan © (2006-10-18 20:03) [7]

> У тебя много чего наблюдается.

Ну это к делу не относится :)

> Ни в одной программе нет не полного меню, Д1 не помню.

Или это не то меню или пираты гады :)

← →
Kolan © (2006-10-18 20:07) [8]

Ну вот как-бы так:
http://www.ksoftware.narod.ru/Menu.jpg

← →
Eraser © (2006-10-18 20:49) [9]

> [0] AlexEgorov (18.10.06 15:49)

почему - ответ [1].
имхо, в этом месте VCL плохо продумана.. примерно отсюдого же растут грабли, проблем, которые начнут озникать, когда понадибится добавить доп. кнопку на таск бар.

← →
guav © (2006-10-18 21:29) [10]

> [0] AlexEgorov (18.10.06 15:49)

это меню не формы, а невидимого окна Application.

> имхо, в этом месте VCL плохо продумана..

Да, плохо продумана тем, что нет лёгкого способа отключения такого поведения.

← →
AlexEgorov (2006-10-18 21:34) [11]

Я имел ввиду именно то, что привёл в скриншоте Kolan, не полное меню на апликейшене в таскбаре

← →
Германн © (2006-10-18 22:29) [12]

> Ни в одной программе нет не полного меню, Д1 не помню.

В Д1 - меню полное.

Так в начале речь шла про системное меню, а потом про меню в таскбаре.

> [13] Anatoly Podgoretsky © (18.10.06 22:40)
> Так в начале речь шла про системное меню, а потом про меню
> в таскбаре.

В первом же посте написано:
"Почему в всех дельфи приложений не полное системное меню, которое появляется при правом клике в панели задач на приложении (это там, где "Свернуть", "Переместить" и пр.)".

← →
AlexEgorov (2006-10-19 08:37) [15]

Нашёл я код в Forms в процедуре

procedure TApplication.CreateHandle; var TempClass: TWndClass; SysMenu: HMenu; begin ..... SysMenu := GetSystemMenu(FHandle, False); DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND); DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMMAND); if NewStyleControls then DeleteMenu(SysMenu, SC_MOVE, MF_BYCOMMAND); end; end;

Интересно с какой целью это сделано?

Незабвенная фраза "Это там где часики"

> [15] AlexEgorov (19.10.06 08:37)
> Интересно с какой целью это сделано?

Когда я наткнулся на этот код (несколько лет назад), то решил, что в Борланд устроился работать вредитель :)

хмм...

Почему в всех дельфи приложений не полное системное меню, Найти похожие ветки