TComboBox erweitern und einbinden

[kiar]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  combobox1:TMyComboBox;
    public
    { Public-Deklarationen }
  end;

var Form1:TForm;

implementation

procedure TForm1.FormCreate(...);

begin
 comboBox1:=TMyComboBox1.Create(Aowner;
 comboBox1.parent:=self;
 ....
end;

und nicht vergessen die unit einzubinden.

raik