Отображение свойств выбранного объекта в виде дереваDelphi , Компоненты и Классы , RTTIОтображение свойств выбранного объекта в виде дереваunit DemoForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TFormDemo1 = class(TForm) Button1: TButton; Edit1: TEdit; Label1: TLabel; Memo1: TMemo; MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; N1: TMenuItem; PrintSetup1: TMenuItem; Print1: TMenuItem; N2: TMenuItem; SaveAs1: TMenuItem; Save1: TMenuItem; Open1: TMenuItem; New1: TMenuItem; Help1: TMenuItem; About1: TMenuItem; HowtoUseHelp1: TMenuItem; SearchforHelpOn1: TMenuItem; Contents1: TMenuItem; Button2: TButton; procedure Exit1Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormDemo1: TFormDemo1; implementation uses DemoFor2; {$R *.DFM} procedure TFormDemo1.Exit1Click(Sender: TObject); begin Close; end; procedure TFormDemo1.About1Click(Sender: TObject); begin ShowMessage('Property ListView Demo'); end; procedure TFormDemo1.Button1Click(Sender: TObject); begin Beep; end; procedure TFormDemo1.Button2Click(Sender: TObject); begin FormDemo2.Show; end; end.Скачать весь проект Статья Отображение свойств выбранного объекта в виде дерева раздела Компоненты и Классы RTTI может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |