Информация о классах

Delphi , Компоненты и Классы , Классы

unit InfoForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Spin, ComCtrls, ExtCtrls, Mask, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Shape1: TShape;
    Label4: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    ListBox2: TListBox;
    ComboBox1: TComboBox;
    ScrollBar1: TScrollBar;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    MaskEdit1: TMaskEdit;
    Image1: TImage;
    Shape2: TShape;
    ScrollBox1: TScrollBox;
    TrackBar1: TTrackBar;
    HeaderControl1: THeaderControl;
    SpinEdit1: TSpinEdit;
    procedure Shape1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Shape1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Shape1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := True;
end;

procedure TForm1.Shape1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  MyClass: TClass;
begin
  Edit1.Text := Format ('Name: %s - Size: %d bytes',
    [Source.ClassName, Source.InstanceSize]);
  MyClass := Source.ClassType;
  with Listbox1.Items do
  begin
    Clear;
    while MyClass.ClassParent <> nil do
    begin
      MyClass := MyClass.ClassParent;
      Add (MyClass.ClassName);
    end;
  end;
end;

end.

Загрузить весь проект

Это проект Delphi, который создает форму с различными контролами, включая список, поле редактирования, чекбокс, радио-кнопки и другие. Проект также содержит два процедуры: Shape1DragOver и Shape1DragDrop, которые обрабатывают функциональность перетаскивания объектов с помощью контрола TShape.

Интерфейс Секция интерфейса объявляет зависимости, необходимые для проекта, включая Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Spin, ComCtrls, ExtCtrls, Mask, Buttons и StdCtrls. Эти библиотеки предоставляют различные функциональности, такие как графика, контролы, формы, диалоги, вращающиеся кнопки, компонентные контроллеры, расширительные контролы, маскированное поле редактирования и стандартные контролы.

Тип Секция типа определяет класс TForm1, который наследуется от класса TForm. Этот класс содержит несколько компонентов:

• ListBox1: Контроль списка.
• Label1, Label2, Label3, Label4: Контроли меток для отображения текста.
• Edit1, Edit2: Поля редактирования для ввода пользователем.
• Memo1: Поле мемо для отображения многострочного текста.
• Button1: Кнопка push для вызова действия.
• CheckBox1: Контроль чекбокса.
• RadioButton1: Контроль радио-кнопки.
• ListBox2: Еще один список контролей.
• ComboBox1: Комбо-бокс контроллер.
• ScrollBar1: Контрол скроллбара.
• GroupBox1: Группа контролей.
• RadioGroup1: Группа радио-кнопок.
• Panel1: Панель контролей.
• BitBtn1: Битовая кнопка контроллер.
• MaskEdit1: Маскированное поле редактирования.
• Image1: Контроль изображения.
• Shape2: Еще один контрол шапы.

Приватные и общественные разделы Секция приватных переменных или методов, а секция общественных объявляет общественные методы. В этом случае нет приватных или общественных объявлений.

Var-секция Секция var объявляет глобальную переменную Form1 типа TForm1, которая представляет основную форму приложения.

Имплементация Секция имплементации содержит код для процедур и методов, объявленных в секции интерфейса. В частности:

• Процедура Shape1DragOver вызывается, когда пользователь перетаскивает объект над контролом Shape1. Она устанавливает переменную Accept в значение True, указывая, что операция переноса разрешена.
• Процедура Shape1DragDrop вызывается, когда пользователь опускает объект на контрол Shape1. Она извлекает информацию о перенесенном объекте, включая его имя класса и размер экземпляра, и отображает ее в поле редактирования Edit1. Она также пополняет список ListBox1 предками класса перенесенного объекта.

{$R *.DFM} Эта строка - компиляторский директивы, которая указывает Delphi включить ресурсный файл (*.DFM) для этого проекта. В целом, этот проект демонстрирует различные контролы и функциональность в Delphi, включая операции перетаскивания объектов, списки, поля редактирования, чекбоксы, радио-кнопки и другие.

Код программы на языке Pascal, представляющий собой интерфейс и реализацию формы с использованием компонентов Delphi.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Классы ::