Hallo Himitsu,
Erstmal Danke für deine Hilfe.
Fehlermeldungsfrei, aber das Label ist immernoch nicht zu sehen.
Code:
protected
{ Protected-Deklarationen }
procedure setParent (aParent: TWinControl); override;
.....
constructor TMsDatumCombo.create (aOwner: TComponent);
begin
inherited create (aOwner);
fShowLabel := true;
fCaption := '';
fLabel := TLabel.create (self);
with fLabel do
begin
left := self.left;
top := self.top;
focusControl := self;
Caption := self.Caption;
end;
self.left := self.left + 120;
end;
procedure TMsDatumCombo.setParent (aParent: TWinControl);
begin
fLabel.parent := aParent;
inherited setParent (aParent);
end;
Noch eine Idee, warum das Label nicht angezeigt wird?
Und, Frage 2: wo kann ich Werte für die Items einer ComboBox vorgeben, im onCreate jedenfalls nicht...
Herzlich grüßt
Moo