Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.03;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.068 c
2-1199783028
Washington
2008-01-08 12:03
2008.02.03
Нужно преобразовать строку в комманду


15-1198421299
общества
2007-12-23 17:48
2008.02.03
ООО, ОАО, ЗАО


15-1198778080
Pazitron_Brain
2007-12-27 20:54
2008.02.03
Как установить ИЕ?


4-1182940157
Углук
2007-06-27 14:29
2008.02.03
Вычитание регионов.


2-1200051942
Виктор007
2008-01-11 14:45
2008.02.03
Установка компонента в Delphi 2007





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский