Objekt im onCreate erzeugen, aber wie?

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

[Rolf Frei]

SetBounds ist der offiziele Delphi Weg wie man das macht. Wird die Message auch bei Grössenänderung verschickt, also die Position die gleiche bleibt, aber die Höhe/Länge geändert wird? Des weiteren ist das platformunabhängig, wenn man die Delphi Klassen-Methoden, die dafür vorgesehen sind, nutzt.

[Marco Steinebach]

Hallo zusammen,
Aaaalso:

Code:

  fLabel.parent := self.parent;

geht, wie Himitsu schon geschrieben hat, im onCreate nicht, wird ja von setParent übernommen.
Blöde frage: laut meinem Code wird der Label an der Position, wie das Edit, erstellt, und, anschliessend, wird das Edit um 120 nach rechts verschoben (Scalierung und co kriegen wir, denke ich, später, wenn das Ding überhaupt zu sehen ist.
D.h. an der ursprünglichen Position steht das Label, und 120 pixel weiter rechts, das zugehörige Feld, sollte jedenfalls.
Rufe ich meine Methode init, im FormShow, auf, funktioniert alles wunderbar:

Code:

procedure TMsDatumCombo.init;
begin
  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;
  with items do
  begin
    clear;
    add ('vorgestern');
    add ('gestern');
    add ('heute');
    add ('nächster Tag');
    add ('übermorgen');
    add ('Sonntag');
    add ('Montag');
    add ('Dienstag');
    add ('Mitwoch');
    add ('Donnerstag');
    add ('Freitag');
    add ('Samstag');
  end;
end;

Warum funktioniert das da, aber im onCreate nicht?
Schaue ich mir form1.components an, da steht meine Combobox drin, aber das Label nicht, kann es nicht sein, dass es deshalb nicht zu sehen ist?
Gibt es nicht irgendwo einen Weg dem Formular die Komponente hinzuzufügen?

Etwas verzweifelte Grüße
Moo

[himitsu]

Der Parent kann auch mehrmals zugewiesen/geändert werden.
Da drin also das TLabel.Create, ohne ein Assigned, wäre nicht sehr hilfreich.

Zitat:

laut meinem Code wird der Label an der Position, wie das Edit, erstellt, und, anschliessend, wird das Edit um 120 nach rechts verschoben

Da das Label seine Position speichert und lädt, darft nicht das Edit, sondern muß das Label verschoben werden.
Sonst wird bei jedem Laden und anschließendem Speichern das ganze immer mehr verschoben, bis es weg ist (außer Sichtweite).

[Rolf Frei]

Wenn du die Komponente zur Runtime erstellst, würde es gehen, aber das ist ja nicht das was wir wollen.

Die Position wird zur Runtime aus dem DFM geladen und dann ist das was du im Create machst nicht mehr aktuell. Nach dem Laden enspricht Edit.Left dem, wie es du in der Form platziert hast. Dein Label ist aber immer noch an der Stelle wie du es im Create platziert hast. Wenn das Edit, deine Hauptkomponente, die Grösse oder Position ändert, musst du auch die Position des Labels anpassen. Das kannst du ganz einfach im überschriebenen SetBounds machen.

Delphi-Quellcode:

procedure TMsDatumCombo.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  FLabel.Left := Left - FLabel.Width - x;  // x wäre der Abstand zwischen den Edit und dem Label
  FLabel.Top := Top;
end;

Für dein Parent Problem gibt es auch eine Methode die du überschreiben kannst:

Delphi-Quellcode:

procedure TMsDatumCombo.SetParent(AParent: TWinControl); 
begin
  inherited;
  FLabel.Parent := AParent;
end;

Für das Listbox Problem wüsste ich im Moment selber nicht genau wo ich das am besten machen würde. Würde eigentlich erwarten, dass das im Konstruktor schon geht, denke aber, dass das eben auch beim Laden der Form gelöscht wird. Müsste das auch genauer anschauen.

Versuch doch mal in deiner Komponente das Items als nicht stored zu definierern, damit die Items nicht im DFM gespeichert werden. Dein Package mit der Komponente musst du natürlich neu kompilieren, damit das geht.

Delphi-Quellcode:

  TMsDatumCombo= class(TCombobox)
  published
    property Items; stored False;
  end;

Wenn du das Items property eventuell komplett "ausschalten" willst, damit es im Designer nicht mehr sichtbar ist, mach folgendes in deiner Register Procedure der Komponente. Bin aber nicht sicher ob es das in D5 schon gab.

Delphi-Quellcode:

uses DesignIntf;
...
procedure Register;
begin
  ...
  UnlistPublishedProperty(TMsDatumCombo, 'Items');
end;