abgeleitete ComboBox

[Sidores]

hi,
wie kann ich das machen das von anfang an in der ComboBox schon items drin sind(meine zur Entwurfteit).

Danke

[Matze]

Einfach im OI die Eigenschaft Items bearbeiten.

[Sidores]

ich meine wenn ich meine Komponente drauf gezogen habe, sollen auch schon bestimmte Items drin sein.

[Matze]

Achso, sorry, ich dachte schon...

Das was ich gepostet hab passt ja nicht zum Titel.
Tut mir Leid.

[DelphiDeveloper]

Einfach Neue Komponente von TComboBox ableiten

Delphi-Quellcode:

unit ComboBoxWithItems;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TComboBoxWithItems = class(TComboBox)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    procedure CreateWnd; override;
    constructor create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DelphiDeveloper', [TComboBoxWithItems]);
end;

{ TComboBoxWithItems }

constructor TComboBoxWithItems.create(AOwner: TComponent);
begin
  inherited Create (AOwner);
end;

procedure TComboBoxWithItems.CreateWnd;
begin
  inherited CreateWnd;
  Items.Add('My Entry 1');
  Items.Add('MY Entry 2');
  ItemIndex := 0;
end;

end.

Beachte bitte dass die Items im Constructor noch nicht zur Verfuegung stehen,
weil dort das window handle der Komponente noch nicht bekannt ist.
das wiederum liegt daran da solange kein parent gesetzt ist, das window handle nicht zugewiesen
werden kann.
Also im create zu früh!
daher kannst du die Itemliste erst im CreateWnd befuellen.

[Sidores]

Zitat:

procedure CreateWnd; override;

Danke ist genauch was ich gesucht hatte
(hatte es auch schon immer bei create versucht)

Danke

[DelphiDeveloper]

vielleicht waere es noch sinnvoll
vor items.add
ein items.clear aufzurufen!



Dann bist du auf der sicheren Seite wenn CreateWnd durch zuaetzliche veranderungen der Komponente
öfters aufgerufen wird.