Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Компоненты";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Вниз

Создание свойства нового компонента   Найти похожие ветки 

 
Aleksandr ©   (2006-12-16 20:03) [0]

Здравствуйте уважаемые мастера Delphi. Я создаю новый компонент и хочу добавить в него новое свойство, которое могло бы раскрыватся (+) и появлялись дополнительные поля разных типов. Как это зделать? Заранее спасибо.


 
Юрий Зотов ©   (2006-12-16 22:02) [1]

Свойство-объект. Наследовать от TPersistent или его наиболее подходящего потомка.

Примерв объектных свойств см. в мсходниках VCL, там таких много. Слово "сделать" пишется через "с".
:o)


 
DimaBr   (2006-12-18 09:17) [2]


TMyGroup = class(TPersistent)
private
  fIntegerProperty: integer;
  fStringProperty: string;
published
   property IntegerProperty: integer read fIntegerProperty write fIntegerProperty;
   property StringProperty: string read fStringProperty write fStringProperty;
end;

TMyComponent = class(TComponent)
private
  fMyGroup: TMyGroup
published
  property MyGroup: TMyGroup read fMyGroup write SetMyGroup;
end;

constructor TMyComponent.Create();
begin
 inherited;
 fMyGroup := TMyGroup.Create;
end;

destructor;
begin
fMyGroup.Free;
inherited;
end;



Страницы: 1 вся ветка

Форум: "Компоненты";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.069 c
2-1200029813
Катунов Юрий
2008-01-11 08:36
2008.02.03
Как прочитать из параллельного порта из под Windows XP?


2-1200213505
VAD*Anti Gopn!k
2008-01-13 11:38
2008.02.03
Сообщение отключения модема(от инета например)


15-1198396172
ДжонС
2007-12-23 10:49
2008.02.03
DEC - > HEX


15-1198637568
Slider007
2007-12-26 05:52
2008.02.03
С днем рождения ! 26 декабря 2007 среда


2-1199727919
T54
2008-01-07 20:45
2008.02.03
TTreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский