Проверка на существование свойства

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

{Вероятно, вы захотите заменить "is TButton.."
на что-то другое, что вы определили в родителе..
напишите просто if Components[i] in myset ...
в моем примере я перебираю около 40 объектов,
чтобы найти свойство TFont и изменить его свойство
TPitch ... может быть существует путь легче?}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount -1 do
    if Components[i] is TButton then
      TButton(Components[I]).Font.Pitch :=fpFixed ;
end;

Here's the translation of the content into Russian:

Код, который вы предоставили, проверяет, является ли компонентом на форме типа TButton, и если это так, изменяет его шрифт на fpFixed. Вот несколько предложений для улучшения: 1. Вместо проверки, является ли компонент типа TButton, можно использовать множество для хранения всех компонентов, которые имеют свойство TFont. Затем можно проходить по этому множеству и изменять шрифт.

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
   // Создаем множество для хранения TFonts
  var myset: TComponentSet := TComponentSet.Create();

  for i := 0 to ComponentCount - 1 do
    if Components[i] is TComponent then
      if TComponent(Components[i]).ClassType = TFont then
        myset.Add(TFont(Components[i]));

   // Изменяем шрифт всех TFonts в множестве
  for i := 0 to myset.Count - 1 do
    TFont(myset[i]).Pitch := fpFixed;
end;

1. Вместо проходимости по всем компонентам и проверки их класса, можно использовать более прямой подход:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TFont then
      TFont(Components[i]).Pitch := fpFixed;
end;

Этот код предполагает, что TForm имеет метод ComponentCount, который возвращает количество компонентов на форме, и свойство Components, которое возвращает массив всех компонентов. 3. Если вы хотите изменить шрифт только для конкретных кнопок (а не для всех TFonts), можно хранить их ссылки в множестве или массиве и затем проходить по этому коллекционному типу:

var
  MyButtons: TArray<TButton>;
begin
   // Создаем список кнопок, которые нужно изменить шрифт
  SetLength(MyButtons, 5);
  MyButtons[0] := TButton.Create(self); // создаем кнопку
  MyButtons[1] := TButton.Create(self); // создаем еще одну кнопку

  for i := Low(MyButtons) to High(MyButtons) do
    TButton(MyButtons[i]).Font.Pitch := fpFixed;
end;

Этот подход более эффективен и читабелен, особенно если у вас есть много кнопок, которые нужно изменить шрифт.

Процедура TForm1.FormCreate(Sender: TObject); изменяет свойство Pitch для кнопок на форме, перебирая компоненты и проверяя, является ли каждый из них типом TButton.

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

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

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