Delphi World - Скрыть свойства в IDE
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Скрыть свойства в IDE

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

unit HideAboutProps;

 // Declare a Property-Category-Class 
// Eine Eigenschaftskategorie-Klasse deklarieren 

type
   TAboutPropCategory = class(TPropertyCategory)
     // Give it a name and a description 
    // Namen und Beschreibung vergeben 
    class function Name: string; override;
     class function Description: string; override;
   end;

 procedure Register;

 implementation

 // Register this new Property Category in the Delphi-IDE 
// Diese neue Eigenschaftskategory in Delphi registrieren 
procedure Register;
 begin
   RegisterPropertyInCathegory(TAboutPropCategory, 'About');
 end;

 // Implementation of the two class functions from above 
// Den beiden Klasse-Funktionen noch eine Implementation geben 
class function TAboutPropCategory.Name: string;
 begin
   Result := 'About';
 end;

 class function TAboutPropCategory.Description: string;
 begin
   // As you want it ... 
  Result := 'Gives information about the author.';
   // Wie man's mochte ... 
  Result := 'Enthalt Informationen uber den Autor.';
 end;

 // To use this new category, you only have to include this unit in a package and recompile it. 
// If you want, you now can hide all properties called 'About' from being displayed 
// in the object inspector. 


// Um diese neue Kategorie zu nutzen, muss man die Unit nur in ein Package einbinden 
// und dieses danach neu compilieren. 
// Wenn man mochte, kann man nun alle Eigenschaften, die 'About' hei?en, verbergen. 
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования