Objekt im onCreate erzeugen, aber wie?

[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;

[Rolf Frei]

Das geht so nicht, weil die Position des Edits im DFM gespeichert ist. Beim Laden der DFM wird die Position des Edit wieder an die Position gesetzt, wie es designed wurde. Das Label ist dann aber an der selben Postion wie im Create. Die Positionierung von Subkomponenten muss im SetBounds gemacht werden, alles andere kann nicht funktionieren.

Das heisst: Die Position des Edits ist durch das DFM vorgegeben und es muss die Position der Subkomponente entsprechend angepasst werden und nicht anders rum, wie bei dir, wo du die Hauptkomponente am Label anpassen willst. Das kann nicht funktionieren.

[himitsu]

anstatt SetBounds ginge auch WM_WINDOWPOSCHANGED,
bzw. das geht auch dann, wenn das Edit von extern (nicht über die VCL) verschoben würde.

Delphi-Quellcode:

protected
  procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;

(inherited nicht vergessen)