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

Список заданных событий всех компонентов

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

Список заданных событий всех компонентов

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

uses TypInfo;


 { .... }


 procedure TForm1.Button1Click(Sender: TObject);
 var
    x, y, z: Word;
   pl: PPropList;
 begin
   y := GetPropList(Self, pl);
   for x := 0 to y - 1 do
   begin
     if Copy(pl[x].Name, 1, 2) <> 'On' then Continue;
     if GetMethodProp(Self, pl[x].Name).Code <> nil then
       Memo1.Lines.Add(Self.Name + ' - ' + pl[x].Name);
   end;
   for z := 0 to Self.ComponentCount - 1 do
   begin
     y := GetPropList(Self.Components[z], pl);
     for x := 0 to y - 1 do
     begin
       if Copy(pl[x].Name, 1, 2) <> 'On' then Continue;
       if GetMethodProp(Self.Components[z], pl[x].Name).Code <> nil then
         Memo1.Lines.Add(Self.Components[z].Name + ' - ' + pl[x].Name);
     end;
   end;
 end;

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


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


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

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
22.09.2020 10:51:30/0.002622127532959/2