Редактиране на свойство в диалогов прозорец
Сайт на Delphi: ежедневни Delphi-новини, документация, статии, рецензия, интервю, компютърен хумор.
За да илюстрирате използването на диалогови прозорци за редактиране на свойства, разгледайте два примера. И двете включват припокриване на метода за редактиране на класа TPropertyEditor.
тип TAppName = тип String; TFarRunButton = клас (TSpeedButton) частно FAppName: TAppname; обучен
използва Designlntf, DesignEditors; // Не се опитвайте да отстранявате грешки
// този модул преди да го регистрирам // в средата на Delphi!
процедура Регистър; изпълнение
/ TAppNamePropEd> процедура TAppNameProperty.Edit; var Dig: TOpenDialog; започнете Dig: = TOpenDialog.Create (Nil); // Създаване на диалогов прозорец за опит
Листинг 11.1 (продължение) Филтър: = 'Изпълними файлове | * .EXE | Всички файлове! *. * 1; // Изпълнение на диалоговия прозорец, ако изпълни тогава Стойност: = Име на файл; край; накрая
Друг пример е по-подходящ. Ще говорим за наистина нестандартен тип собственост (потомък на Tye ^, чиято стойност е набор от реални числа.
За да може TList лесно да манипулира набор от двойки реални числа, се въвежда междинен тип TPolyPoint, някои ключови методи на родителския клас се припокриват и се въвеждат нови:
въведете PPolyPoint = ATPolyPoint; // Показалец към TPolyPoint TPolyPoint = запис
X, Y: Реално; // Записът на TPolyPoint съдържа // две реални числа