| Код |
unit TComboBox1;
interface
uses
SysUtils, Classes, QControls, QStdCtrls;
type
TcomboBox1 = class(TComboBox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
constructor Create(aowner:Tcomponent); override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyCompt', [TcomboBox1]);
end;
constructor TComboBox1.Create(aowner:Tcomponent);
begin
inherited create(Aowner);
end;
end.
|
|