Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/38: Рейтинг темы: голосов - 38, средняя оценка - 4.89
59 / 31 / 15
Регистрация: 30.05.2009
Сообщений: 224
1

Как сделать прозрачным главное меню пуск

21.06.2009, 11:38. Просмотров 7321. Ответов 1
Метки нет (Все метки)


Подскажите, пожалуйста. Как сделать прозрачность для меню пуск? Для панели задач и меню я делал так:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Timer1Timer(Sender: TObject);
var h:cardinal;
begin
h:=FindWindow('Shell_TrayWnd',nil);
SetWindowLong(h,GWL_EXSTYLE,GetWindowLong(h,GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(h,0, 200, LWA_ALPHA);
h:=FindWindow('BaseBar',nil);
SetWindowLong(h,GWL_EXSTYLE,GetWindowLong(h,GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(h,0, 200, LWA_ALPHA);
end;
Но вот с главным меню пуск такое не проходит. Пытался получить хандл так:
Delphi
1
2
H:=FindWindow('Shell_TrayWnd',nil);
H:=FindWindowEx(H,0,'DV2ControlHost','Главное меню');
Но прозрачным меню всеравно не стало. Как осуществить такое? Заранее спасибо.

Добавлено через 13 часов 9 минут 45 секунд
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure transparent(H:hwnd; transparent:integer);
var old: longint;
begin
If h<>0 then
begin
 old:=GetWindowLongA(h,GWL_EXSTYLE);
 SetWindowLongA(h,GWL_EXSTYLE,old or $80000);
 SetLayeredWindowAttributes(h, 0, transparent, $2);
end;
end;
 
procedure TForm1.Timer2Timer(Sender: PObj);
begin
transparent(FindWindow('DV2ControlHost',nil),200);
transparent(FindWindow('Shell_TrayWnd',nil),200);
transparent(FindWindow('BaseBar',nil),200);
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2009, 11:38
Ответы с готовыми решениями:

Как сделать главное меню
как сделать главное меню, как на http://podlodka.info ? Добавлено через 1 час 36 минут не...

Как сделать Главное Меню
Как сделать Главное Меню в программе на C# с использование интсрументов и контролов Windows Forms

Как сделать главное меню горизонтальным?
Добрый день! Я использую шаблон IT Property. ...

Как сделать, чтобы главное меню сайта вытянулось в одну линию?
Не получается растянуть меню на странице сайта. Оно идет в две линии, а надо в одну......

1
Эксперт С++
3183 / 864 / 39
Регистрация: 29.12.2008
Сообщений: 952
21.06.2009, 11:58 2
Цитата Сообщение от Nikfel Посмотреть сообщение
Но вот с главным меню пуск такое не проходит. Пытался получить хандл так:
Попробуй получить его вот так:
Delphi
1
H:=FindWindow('DV2ControlHost',nil);
Думаю, дело именно в этом.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2009, 11:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Панель меню Пуск стала сбоку. Как сделать назад вниз?
Не знаю как так получилось и в чем причина, но панель меню Пуск щас у меня сбоку слева. Раздвинуть...

Главное меню активным сделать
Приветствую. Может кто подсказать как сделать на jquery следующее - чтобы пункт меню был...

Сделать главное меню по центру страницы
Необходимо сдвинуть главное меню вправо, чтоб оно встало по центру, здесь

Как сделать так, чтобы при активации окна приложения не было видно панели задач и меню пуск?
Приложение я пишу на WPF+C#. Мое окно наложено поверх других окон, но это только в том случае, если...

Сделать графические кнопки возврата в главное меню
Я ученик, и начинающий программист, я составляю обучающую программу вот она: Помогите пожайлуста,...

Пуск Меню сделать классическим
Всем привет у меня вопросик А можноно как небудь на семерке пуск сделать классическим что бы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.