Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2017, 12:35   #1
Neznayka2016
Пользователь
 
Регистрация: 18.03.2016
Сообщений: 29
По умолчанию Помогите реализовать свойство

Код:
  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;

  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

end.
Помогите реализовать свойство, чтобы из программы к элементам списка можно было обращатся по индексу.
Примерно так:

Код:
....
Var
  Book: TCustomBook;
....

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  btn: TButton;
begin
  btn:= TButton.Create(Self);
...
  btn.Text:= Book[i].Text;
end;
заранее благодарен
Neznayka2016 вне форума Ответить с цитированием
Старый 14.07.2017, 16:29   #2
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

как-то так:
Код:

  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;
    function Get(nIndex : Integer) : TButton;
  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
    property Buttons[nIndex : Integer] : TButton read Get; default;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

function TCustomBook.Get(nIndex : Integer) : TButton;
begin
  result := FList[nIndex];
end;

end.
писал в блокноте.
а разве у TButton есть свойство Text?

Последний раз редактировалось BLACK_RAIN; 14.07.2017 в 16:40.
BLACK_RAIN вне форума Ответить с цитированием
Старый 14.07.2017, 17:01   #3
AlexMas
Пользователь
 
Аватар для AlexMas
 
Регистрация: 30.05.2012
Сообщений: 69
По умолчанию

Конечно! Называется Caption =)
AlexMas вне форума Ответить с цитированием
Старый 14.07.2017, 19:44   #4
Neznayka2016
Пользователь
 
Регистрация: 18.03.2016
Сообщений: 29
По умолчанию

Цитата:
Сообщение от BLACK_RAIN Посмотреть сообщение
как-то так:
Код:

  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;
    function Get(nIndex : Integer) : TButton;
  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
    property Buttons[nIndex : Integer] : TButton read Get; default;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

function TCustomBook.Get(nIndex : Integer) : TButton;
begin
  result := FList[nIndex];
end;

end.
писал в блокноте.
а разве у TButton есть свойство Text?
А это что?

За помощь спасибо!
Изображения
Тип файла: jpg 1.jpg (69.1 Кб, 79 просмотров)
Neznayka2016 вне форума Ответить с цитированием
Старый 15.07.2017, 08:07   #5
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

Цитата:
Сообщение от Neznayka2016 Посмотреть сообщение
А это что?
На компонентах редко пишу. Оно же Caption всегда было.
BLACK_RAIN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[CSS]: Пытаюсь сделать Карусель без JS, но не срабатывает нужное css-свойство. Помогите разобраться. MeriPoppins HTML и CSS 2 10.02.2017 22:50
Помогите реализовать neprogrammer БД в Delphi 1 25.05.2016 22:25
Помогите реализовать mental Помощь студентам 0 07.01.2009 01:17
Помогите реализовать ReacXX Общие вопросы Delphi 3 26.05.2008 08:56
Помогите реализовать VenMaster Общие вопросы Delphi 8 24.04.2008 23:45