Изменить заголовки компонент различных классов

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

unit TextPF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Memo1: TMemo;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

type
  TControlHack = class (TControl);

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
    TControlHack (Controls [I]).Text :=
      TControlHack (Controls [I]).Text + '*';
end;

end.

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

Перевод контента на русский язык:

В этом коде является частью проекта Delphi, конкретно единицы TextPF. Единица содержит класс TForm1 с несколькими компонентами (Edit1, Button1, CheckBox1, Label1, Memo1 и ListBox1) и разделом реализации, который определяет процедуру для обработки события Button1Click.

Чтобы изменить заголовки для различных классов в этом компоненте, вы можете модифицировать определение класса TControlHack. В настоящее время оно определено как TControlHack = class(TControl);. Вы можете переименовать класс в something like THeaderedControl и добавить желаемое заголовок:

type
  THeaderedControl  = class(TControl)
    procedure SetHeaderText(const AText: string);
  private
    FHeaderText: string;
  public
    property HeaderText: string read FHeaderText write SetHeaderText;
  end;

Затем вы можете модифицировать процедуру Button1Click для использования этого нового класса:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
    THeaderedControl(Controls[I]).HeaderText := THeaderedControl(Controls[I]).HeaderText + '*';
end;

Это код будет добавлять символ '*' к заголовку каждого контрола на форме. Вы можете заменить это на ваше желаемое логическое изменение заголовков.

Если вы хотите изменить заголовок конкретных компонентов, вам нужно знать их имена классов или типы и модифицировать их соответствующим образом. Например, если у вас есть TLabel-компонент (Label1), вы можете переименовать его в TTitleLabel:

type
  TTitleLabel = TLabel;

Затем вы можете использовать новый класс имя в вашем коде:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
    if Controls[I] is TTitleLabel then
      TLabel(Controls[I]).Caption := '* ' + TLabel(Controls[I]).Caption;
end;

Это код будет добавлять символ '*' перед заголовком каждого TLabel на форме.

В статье описывается изменение заголовков компонентов различных классов в программе на языке Delphi, используя пример с формой и ее элементами.

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

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

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