Форум: "Основная";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];
Вниз
Почему в всех дельфи приложений не полное системное меню, Найти похожие ветки
← →
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 - меню полное.
← →
Anatoly Podgoretsky © (2006-10-18 22:40) [13]Так в начале речь шла про системное меню, а потом про меню в таскбаре.
← →
Джо © (2006-10-19 03:44) [14]> [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;
Интересно с какой целью это сделано?
← →
Anatoly Podgoretsky © (2006-10-19 08:41) [16]Незабвенная фраза "Это там где часики"
← →
Джо © (2006-10-19 08:54) [17]> [15] AlexEgorov (19.10.06 08:37)
> Интересно с какой целью это сделано?
Когда я наткнулся на этот код (несколько лет назад), то решил, что в Борланд устроился работать вредитель :)
← →
MetalFan © (2006-10-19 09:00) [18]хмм...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.049 c
