25.09.2018, 06:43
|
Прохожий
|
|
Регистрация: 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;
Все как по букварю
|