Показать сообщение отдельно
  #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;

Все как по букварю
Ответить с цитированием