Objekt im onCreate erzeugen, aber wie?

[Marco Steinebach]

Hallo Zusammen,
Doch, doch, das meine Komponente Owner des Labels ist, ist völlig in Ordnung, ich bin nur nicht darauf gekommen das es geht.
Also heißt es bei mir jetzt:

Code:

constructor TMsDatumCombo.create (aOwner: TComponent);
begin
  inherited create (aOwner);
  fOwner := aOwner;
  fShowLabel := true;
  fCaption := '';
  fLabel := TLabel.create (self); // so???
  with fLabel do
  begin
    left := self.left;
    top := self.top;
    focusControl := self;
    parent := self.parent;
    Caption := self.Caption;
  end;
  self.left := self.left + 120;
end;

Das funktioniert fehlerlos, Problem ist, dass der Label nicht zu sehen ist, jedenfalls nicht für meinen Screenreader (Deshalb übrigens auch immernoch D5 ;-)).
Ist ja auch eigentlich klar, dann das Besitzende Form hat ihn ja nicht in seiner Komponentenliste...
Hab ich da noch einen Fehler drin?
Löse ich das ganze über eine Methode (init), die im onShow des Formulars aufgerufen wird, ist alles schön, aber das ist natürlich nicht der Sinn. ;-)

Könnt ihr euch das bitte nochmal anschauen?
Ich häng' mal den Quelltext dran.
Herzlich grüßt
Moo

[himitsu]

Im Create ist Parent noch nicht zugewiesen ... kann auch nicht. (das Einzige, was du hast, ist der Owner-Parameter)

Aber du kannst SetParent deiner Komponente überschreiben und darin auch das Label aktualisieren.

[Marco Steinebach]

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

[Delphi.Narium]

Eventuell so?

Delphi-Quellcode:

constructor TMsDatumCombo.create(aOwner: TComponent);
begin
  inherited create(aOwner);
  fShowLabel := true;
  fCaption := '';
  fLabel := TLabel.create(self);
  fLabel.Parent := Self;
  fLabel.left := left;
  fLabel.top := top;
  fLabel.focusControl := self;
  fLabel.Caption := Caption;
  self.left := self.left + 120;
end;

[Rolf Frei]

Du solltest noch SetBounds überschreiben und da die Position deines Labels anpassen. Wenn die Grösse des Edits verändert wird, passt sonst die Position deines Lables nicht mehr. Das Label wird direkt hinter dem Edit platziert und daher siehst du es auch nicht.

[Rollo62]

Vielleicht sollte man das besser in einer überladenen .Loaded; Funktion machen, da sollte schon das Meiste hochgefahren sein ?
http://docwiki.embarcadero.com/RADSt..._After_Loading
http://docwiki.embarcadero.com/RADSt..._After_Loading

Im Create würde ich möglichst wenig machen.

[Rolf Frei]

Nein das ist eine dumme Idee, da so sonst nur Komponenten, die zur Designtime auf die Form geklatscht wurden, richtig wären und solche, die man zu Runtime erstellt, nicht funktionieren würden. Loaded wird nur aufgerufen, nachdem die Daten aus dem DFM eingelesen wurden. Bei einer zur Runtime erstellten Komponente passiert das nie.

Was er da im Create macht ist soweit schon richtig, nur braucht es da noch etwas mehr Arbeit und das Überschreiben von weiteren Methoden, damit das Label immer richtig platziert wird, wenn sich die Grösse des Edit ändert. Asserdem sollte man da auch auf die Skalierueng achten und und mit Edit.Left + Edit.Width + x die neune Position des Labels bestimmen.

[Rollo62]

Ok, dann würde ich aber die internen Komponenten möglichst mit Align (TAlignLayout) und Margins definieren, und nicht mit festen Positionen.

[Rolf Frei]

Margin wird es in seiner "Uralt" Delphi Version noch nicht geben. In D7 gibt es das zumindest noch nicht. SetBounds ist genau richtg um das Label zu platzieren, weil das immer bei einer Änderung der Grösse oder Position des Edit aufgerufen wird.

Wenn ich das Create anschaue, wird das Label direkt hinter dem Edit platziert und ist deswegen auch nicht sichtbar. Da müsste Label.Left := Edit.Left + Edit.Width + x sein oder halt je nachdem wo er es haben will.

[Delphi.Narium]

Noch ein Versuch:

Delphi-Quellcode:

constructor TMsDatumCombo.create(aOwner: TComponent);
begin
  inherited create(aOwner);
  fShowLabel := true;
  fCaption := '';
  fLabel := TLabel.create(self);
  fLabel.Parent := Self;
  fLabel.left := left;
  fLabel.top := top;
  fLabel.focusControl := self;
  fLabel.Caption := Caption;
  fLabel.Height  := Height;  // Wie sieht es mit der Höhe eines Labels aus, dem keine Höhe zugewiesen wurde?
  fLabel.Width := 120; // Wie breit ist bei Delphi 5 ein TLabel, dem keine Breite zugewiesen wurde? Zufällig 0, dann kann es nicht sichtbar sein.
  left := left + fLabel.Width;
end;