Objekt im onCreate erzeugen, aber wie?

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

[Marco Steinebach]

Hallo zusammen und herzlichen Dank für eure Geduld,
Habs jetzt umgesetzt, ist aber immeernoch nix zu sehen.
Sagt mal: woher weiß der Label eigentlich, welche Caption er nehmen soll, das hab ich nämlich nicht drin.
Denn ich sage ja, was ich inzwischen entfernt habe:
caption := '';
und gleich danach:
fLabel.caption := self.caption; // sprich auch: '';
Toll!
D.h. ich müßte doch irgendwo, aber wahrscheinlich nicht im onCreate, sagen:
fLabel,Caption := self.Caption.
Aber wo?

Herzlich grüßt
Moo

[Rolf Frei]

Versuch nochmals genauer zu beschreiben was du genau machen willst. In deinem ersten Post redest du von einem TEdit und dann auf einmal von einer Combox. Der Text in einer Combobox heist nicht Caption, sondern eben Text. Was ich nicht so recht verstehen kann, ist wozu das Label brauchst wenn der Text doch bereits in der Combobox angezeigt wird. Im Prinzip müsstest du den Text im Label neu setzten, wann immer der Anwender eine Auswahl macht.

[Dalai]

TLabel.AutoSize ist standardmäßig true. Solange TLabel.Caption leer ist, wird das Label daher so klein und unbeschriftet sein, dass man es nicht sieht. Die Größe des Labels zu setzen, hat bei aktiviertem AutoSize auch wenig Sinn...

Grüße
Dalai

[Marco Steinebach]

Hallo,
Mir ein bißchen Arbeit sparen.
Ich brauche ein TLabel, sagen wir:
Geburtsdatum
und rechts daneben, die Combobox. Das soll, wenn wir es zum Laufen kriegen, dann auch für die Kombi
TLabel mit TEdit
gehen.
Bislang hab ich halt, ganz normal ein TLabel erzeugt, beschriftet, dann das TEdit erzeugt. Da mein Projekt aber ziemlich viele solcher Felder hat dachte ich, ich könnte es vereinfachen. Daher hab ich der Combobox, meinetwegen auch dem TEdit, eine Caption mitgegeben, die dann aber das zugehörige Label kriegen soll.
Das sollte es werden.
Vielleicht ist ja mein ganzer Ansatz quatsch?

Herzlich grüßt
Moo

[haentschman]

Moin...

...deswegen funktioniert das nicht:

Zitat:

with fLabel do
with items do

Sorry ich konnte es mir nicht verkneifen...

[Marco Steinebach]

Huhu,
Was konntest du dir nicht verkneifen?
with FLabel do // erstellt den Label
with Items do // bezieht sich auf die Combobox bzw. auf deren Items.
Das sind doch zwei völlig verschiedene Baustellen, wenn auch in der gleichen Methode?
Herzlich grüßt
Moo

[Rolf Frei]

Zitat von Marco Steinebach:

Hallo,
Mir ein bißchen Arbeit sparen.
Ich brauche ein TLabel, sagen wir:
Geburtsdatum
und rechts daneben, die Combobox. Das soll, wenn wir es zum Laufen kriegen, dann auch für die Kombi
TLabel mit TEdit
gehen.
Bislang hab ich halt, ganz normal ein TLabel erzeugt, beschriftet, dann das TEdit erzeugt. Da mein Projekt aber ziemlich viele solcher Felder hat dachte ich, ich könnte es vereinfachen. Daher hab ich der Combobox, meinetwegen auch dem TEdit, eine Caption mitgegeben, die dann aber das zugehörige Label kriegen soll.
Das sollte es werden.
Vielleicht ist ja mein ganzer Ansatz quatsch?

Herzlich grüßt
Moo

Dein Ansatz ist schon ok aber halt nicht ganz so simpel wie du vieleicht meinst. Dein Problem, das du nun noch hast, ist die Beschriftung des Labels, wenn du alles andere von mir gepostete implentiert hast. Dazu kannst du z.B. die Change oder Select Methode überchreiben. Das musst du selber testen, was dir da besser passt. Eventuell soll das Label auch erst beim Exit geändert werden, dazu gäbe es auch eine Methode.

Delphi-Quellcode:

TMsDatumCombo= class(TCombobox)
...
protected
  procedure Select; override;
...
end; 

procedure TMsDatumCombo.Select;
begin
  inherited;
  FLabel.Caption := Text;  // Hier kannst du den Labeltext setzen, je nach dem was ausgewählt wurde. 
                          // Text ist der aktuell selektierte Eintrag in der Combo.
end;

Schau dir die doch bitte auch die Sourcen zu TCombobox und TEdit und deren Vorfahren an. Alles was da als Virtual oder Dynasmic deklariert ist, kannst du in einer abgeleiteten Komponente überschreiben und erweitern.