бутон Install-долу, изписана върху него думата "Apply". Всичко дизайн е пълна, се пристъпи към бутона за програмиране. Ако не сте записали на проекта в нова папка, направете го сега. Име на обекта на формата, както обикновено, даде име FMAIN, модулът - просто Майн и на целия проект - FormViewer.
Да се върнем към бутона. Кликнете два пъти върху него, за да създадете натиснете бутона рутинна.
Процедурата е следната:
процедура TfMain.Button1Click (Sender: TObject);
// дръжка съставни BorderIcons
ако CheckBox1.Checked след fMain.BorderIcons: = fMain.BorderIcons + [biSystemMenu]
друг fMain.BorderIcons: = fMain.BorderIcons - [biSystemMenu];
ако CheckBox2.Checked след fMain.BorderIcons: = fMain.BorderIcons + [biMinimize]
друг fMain.BorderIcons: = fMain.BorderIcons - [biMinimize];
ако CheckBox3.Checked след fMain.BorderIcons: = fMain.BorderIcons + [biMaximize]
друг fMain.BorderIcons: = fMain.BorderIcons - [biMaximize];
ако CheckBox4.Checked след fMain.BorderIcons: = fMain.BorderIcons + [biHelp]
друг fMain.BorderIcons: = fMain.BorderIcons - [biHelp];
// дръжка BorderStyle компонент
При RadioGroup1.ItemIndex на
0. fMain.BorderStyle: = bsSizeable;
1. fMain.BorderStyle: = bsDialog;
2. fMain.BorderStyle: = bsNone;
3. fMain.BorderStyle: = bsSingle;
4. fMain.BorderStyle: = bsSizeToolWin;
5. fMain.BorderStyle: = bsToolWindow;
Занимаваме се с код. Първоначално, ние обработваме първата отметка квадратчето:
ако CheckBox1.Checked след fMain.BorderIcons: = fMain.BorderIcons + [biSystemMenu]
друг fMain.BorderIcons: = fMain.BorderIcons - [biSystemMenu];
Ако този флаг е активирана, Проверени имот връща истина, и ако постоянното [biSystemMenu] ще бъде добавен към имуществото на форма BorderIcons. Константи, включително вградени, ние ще говорим по-късно. Засега едно е важно - ако добавим тази константа, а след това се включи тази стойност в BorderIcons собственост.
Примерът е взет от вградени Delphi. Поставете мига курсора в BorderIcons дума и натиснете
По същия начин, по който се отнасяме другите три отметката компонент.
На следващо място, преработката излиза RadioGroup панел. Тъй като само един бутон може да се активира, панелът ItemIndex този имот може да има само 6 ценности, на цифровите бутони от 0 до 5. Той е удобен за използване при проектирането. В зависимост от стойността, която дава един и същ име ItemIndex включена основна форма имот BorderStyle стойност. Това е всичко.
Запазване на примера, компилирате и да видим как работи програмата. бутон В зависимост от избраните стойности след кликване върху бутона "Apply" се променя външния вид на форми. В някои случаи, размерът му може да се промени чрез натискане на мишката, а в някои - не. Ако стойността е равна BorderStyle bsNone и яка прозорец изчезва и на горния ред системни форми. Експериментирайте. Тази програма може да бъде полезно в бъдеще, ако искате да преминете, за да видите кои настройки да изберете, за да си прозорец изглежда по този начин. Например, че е невъзможно да промените размера на никакви "Close" и бутони "Open" и т.н.
Свързани статии