Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Как написать сообщение с юникодовскими буквами чтоб нормално показывала? У меня Delphi7 https://www.cyberforum.ru/ delphi-beginners/ thread41233.html
Как написать сообщение с юникодовскими буквами чтоб нормално показывала? У меня Delphi7
Учет движения товара на складе Delphi
Сразу извинюсь . . . не знал в какую ветку вставить этот топик, поэтому он здесь :) Может у кого-нить где-нить завалялась банальная программка по учету движения товара на складе??! :) Очень сильно...
Delphi Найти собственные значения и векторы 4-х мерной матрицы!!!
Загвостка в том, что мне надо не только задать матрицу или там высчитать определитель, а найти собственные значения, да и ещё вектора + 4-мерной матрицы!!! Застрял на уравнении 4-ой степени(...
Delphi применение условия к тексту помогите решить. есть программа (для примера). и есть в ней кнопка Button1. вот я открываю текстовый файл (приложен) - нажимаю на кнопку (она применяет условие и автоматом сохраняет текст), но это... https://www.cyberforum.ru/ delphi-beginners/ thread41060.html
Delphi массивы, процедуры и функции https://www.cyberforum.ru/ delphi-beginners/ thread41044.html
вообще ничего не понимаю в программировании..первым делом стоит убрать лишний ввод и вывод) а дальше не знаю(( Дано 2 одномерных массива, каждый из которых не содержит повторяющихся элементов....
listview с ComboBox Delphi
Как реализовать связь между ComboBox и listview. К примеру чтобы столбец listview отображался в ComboBox. и как произвести заполнение столбца listview из ComboBox.
Delphi Переопределением обработчика события при создании MDIChild
Здравствуйте, подскажите, что я не так делаю. Имеется MDI Form (имя - MAIN) и MDI Child (имя - FormTreeList). На MDIChild лежит pFIBDataSetTable1. Мне нужно создавать екземпляры формы MDIChild ...
Delphi Копирование файлов Есть папка с файлами. Есть пустая папка. И есть 2 ProgressBar'а. Вопрос такой: Как скопировать файлы из папки с файлами в пустую папку с использованием ProgressBar'а? Первый прогрессбар показывает... https://www.cyberforum.ru/ delphi-beginners/ thread40956.html
Delphi Помогите разобраться с кодом https://www.cyberforum.ru/ delphi-beginners/ thread40891.html
Уважаемые программисты помогите! Не так давно мне попал в руки диск с обучением для Delphi на нем располагалась папка содержащая следующие элементы помогите разобраться с кодом. Так как я тоько...
Delphi Оформление алгоритма в виде подпрограммы procedure TForm1.Button1Click(Sender: TObject); var old:integer; txt2,txt:string; begin memo2.Clear; memo1.Lines.LoadFromFile('1.txt'); n:=strtoint(edit1.text); s:=0; p:=0; txt:=memo1.Text;... https://www.cyberforum.ru/ delphi-beginners/ thread40814.html
59 / 31 / 15
Регистрация: 30.05.2009
Сообщений: 224
0

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

21.06.2009, 11:38. Показов 7327. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.