Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.09.2018, 05:44
smile.vadim smile.vadim вне форума
Прохожий
 
Регистрация: 10.09.2018
Сообщения: 5
Версия Delphi: RadStudio 10
Репутация: 10
По умолчанию constructor Create combobox имя компонента

Создаю свой компонент на основе TCombobox. Переопределил create и понял, что свойство name еще не определено и, соответственно, свойство text так же выставить не получается. А таких методов, как Show у него нет. Может кто подскажет, как быть?
Ответить с цитированием
  #2  
Старый 24.09.2018, 17:54
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

А вы конструктор родителя вызываете в своем конструкторе? Такую штуку как inherited используете?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 25.09.2018, 06:43
smile.vadim smile.vadim вне форума
Прохожий
 
Регистрация: 10.09.2018
Сообщения: 5
Версия Delphi: RadStudio 10
Репутация: 10
По умолчанию

Код:
unit MemComboBox;

interface

uses
  System.SysUtils, Vcl.Controls, Vcl.StdCtrls, inifiles, System.Classes, vcl.forms;

type
  TMemComboBox = class(TComboBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;


  published
    { Published declarations }
  end;

procedure Register;

implementation


procedure Register;
begin
  RegisterComponents('Samples', [TMemComboBox]);
end;

{ TMemComboBox }


constructor TMemComboBox.Create(AOwner: TComponent);
var s: string;
begin
  inherited Create(AOwner);
  self.text:='example';
end;

destructor TMemComboBox.Destroy;
begin
  inherited;
end;

Все как по букварю

Последний раз редактировалось smile.vadim, 25.09.2018 в 06:48.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter