Виж фиг. 3.10, което показва пълна снимка на вашия работен плот.
Фиг. 3.10. Windows вътре прозорец
Създаване на нов проект в Делфи, поставен върху бутона Start формата на. След натискане на този бутон, напиши предизвикателство познатите функции EnunWindows през всички прозорци:
Функция EnurrWi ndowsProc, че ще се нарича за всяка намерена прозорец трябва да изглежда така:
Тук ние проверяваме дали прозореца се вижда. Ако е така, тогава наречен SetParent функция, която определя основния прозорец. Първият параметър на функцията трябва да се уточни прозореца, чиито родители ние искаме да се промени, а като втори определен нов родител. Вторият параметър е указател към главния прозорец на програмата. По този начин, всичко, което е на екрана, прехвърлени в определен прозорец.
Да се подобри примера и малко игра с прозорци на други хора. Поставете бутон форма за отстраняване на заглавието на менюто, събитие OnClick който следващата функция ще се нарича:
Тук започва бюст на прозорците, но сега за всеки намерен прозорец ще се нарича с друга функция, наречена EnumWi ndowsProcl. Тази функция е, както следва:
В тази функция, тъй като има проверка на външния вид на намерен прозорец. Ако то е видимо, а след това на функцията се нарича SetMenu менюто за настройки. Тази функция, трябва да се премине на следните две параметри:
в менюто, което трябва да се инсталира. Уточняване 0, което се равнява на премахването на менюто.
Стартирайте програмата и щракнете върху менюто Remove. Във всички прозорци в които се използва стандартната менюто Старт на Windows, менюто ще изчезне. В Delphi 7, пакет на MS Office софтуер и други продукти, използвани в нестандартна менюта XP стил. Това всъщност е панел с бутони, на която да кликнете върху падащото меню, така че в тези програми, нищо няма да се случи.
Нека да промените кода, и обратно, задаване на менюто. За да направите това, поставете форма TMainMenu компонент и да се създаде в него някакви точки. Можете да излезе с нещо, и не е задължително да изведе товарачи, само имената.
Сега можете да промените функцията SetMenu за следното:
По този начин, за всички прозорци фиксирано меню компонент TMai nMenu. Виж фиг. 3.11, което показва на екрана на собствено меню Delphi програма на човек е настроен на всеки прозорец, където тя не съществуваше и преди. Но най-интересното е, че менюто се появява на десктопа (в горната част), а дори и в лентата на задачите.
Както можете да видите, менюто е доста лесен за инсталиране. не е лесна задача - Но за да го направи работата. Системата не разполага със събития, за елементите на менюто, и по заявките от нашата програма няма да се обади.
Също така, можете да промените свойствата на прозореца. За тази функция се нарича Get-WindowLong по този начин:
Фиг. 3.11. Screenshot Delphi с ново меню
функция 6e1I1pas "1-CAP може да промени различни настройки функция прозорец има следните параметри .:
• опция за да се зададе. Отчетената стойност зависи от втория параметър.
В нашия случай, намерен през прозореца, посочен в първия параметър. Вторият параметър показва, че е необходимо да се промени стила на прозореца подразбиране. Но в третия параметър е един много интересен дизайн:
5eEI 0UL.0pd ^ (п 614_5TUE.) - Y5_SARTYUM
SetWinclowLong функция се променя определения прозорец имота. Първият параметър е указател към намери кутия, а вторият - на вид собственост на интерес. Вторият параметър функция SetWindowLong, можете да посочите същите стойности като функция на втория параметър GetWindowLong.
В този случай, ние се стандартните свойства на прозореца и се изважда от тези свойства хедър (I5_SARTYUM). В резултат на това, ако прозорецът е заглавието, ние го премахнете. Разбира се, след това кода е позиция къде да отидат и да остане там, но да отговаря на потребителските събития няма да бъдем точни.
Източник код примери, обсъждани тук е върху CD-ROM директория BoigsevUgpOZ ^ гг / Youl /.
Свързани статии