Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Отобразить все свойства и события компонента

Delphi , Компоненты и Классы , Свойства и События

Отобразить все свойства и события компонента

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

uses
   TypInfo;

 procedure ListComponentProperties(Component: TComponent; Strings: TStrings);
 var
   Count, Size, I: Integer;
   List: PPropList;
   PropInfo: PPropInfo;
   PropOrEvent, PropValue: string;
 begin
   Count := GetPropList(Component.ClassInfo, tkAny, nil);
   Size  := Count * SizeOf(Pointer);
   GetMem(List, Size);
   try
     Count := GetPropList(Component.ClassInfo, tkAny, List);
     for I := 0 to Count - 1 do
     begin
       PropInfo := List^[I];
       if PropInfo^.PropType^.Kind in tkMethods then
         PropOrEvent := 'Event'
       else
         PropOrEvent := 'Property';
       PropValue := VarToStr(GetPropValue(Component, PropInfo^.Name));
       Strings.Add(Format('[%s] %s: %s = %s', [PropOrEvent, PropInfo^.Name,
         PropInfo^.PropType^.Name, PropValue]));
     end;
   finally
     FreeMem(List);
   end;
 end;

 // Example: List all Properties/Events from Button1 in a TListBox 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ListComponentProperties(Button1, ListBox1.Items);
 end;

Статья Отобразить все свойства и события компонента раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Свойства и События ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.01.2020 03:04:54/0.023104906082153/0