Eigene Komponente für unvollständige Datumsangaben

[Olli73]

Allgemein: Du solltest anstatt FEdit[x]:= TEdit.Create(AOwner); FEdit[x]:= TEdit.Create(self); aufrufen und zusätzlich SetSubComponent(True) aufrufen.

Zu 1: Da wird wohl irgendwo beim setzen des Namens der Komponente die Caption (wenn zuvor leer oder gleich Name) gleich dem Namen gesetzt. Versuch mal ShowCaption := False;

[DeddyH]

OderPanel.ControlStyle := Panel.ControlStyle - [csSetCaption];

[e-gon]

Hallo,

danke für die schnellen Antworten!

Mit FEdit[x]:= TEdit.Create(Self); hat sich 3. erledigt. Dankeschön!

SetSubComponent(True) bewirkt zwar dass die Edit-Felder in der Entwurfsansicht nicht mehr verzogen werden können, doch kann man die Felder auch zur Laufzeit nicht mehr beschreiben. Und auch nachdem ich die Zeile wieder auskommentiert habe komme ich nicht mehr in die Edit-Felder...

Panel.ControlStyle := Panel.ControlStyle - [csSetCaption]; lässt Caption nun leer.

Viele Grüße
e-gon

[e-gon]

Nachtrag:

FEdit[x]:= TEdit.Create(Self); bewirkt bei mir, dass ich nicht mehr in die Edit-Felder komme. Mit FEdit[x]:= TEdit.Create(AOwner); hingegen geht das...

[Olli73]

Zitat von e-gon:

SetSubComponent(True)

Hast du nur SetSubComponent(True) oder FEdit[x].SetSubComponent(True) aufgerufen?

Letzteres wäre richtig.

[Olli73]

Habe mal deine Komponente dynamisch erstellt. Damit funktioniert folgender Code:

Delphi-Quellcode:

  constructor TCustomDateEdit.Create(AOwner: TComponent);
  var x: Integer;
  begin
    inherited Create(AOwner);
    Color:= clBtnFace;
    BevelOuter:= bvNone;
    Height:= 25;
    Constraints.MaxWidth:= Width;
    Constraints.MinWidth:= Width;
    Width:= 85;
    Constraints.MaxHeight:= Height;
    Constraints.MinHeight:= Height;
    UseDockManager:= True;
    OnExit:= PanelExit;

    for x:= 0 to Length(FEdit)-1 do begin
      FEdit[x]:= TEdit.Create(self);  // <- self
      FEdit[x].Parent:= Self;
      FEdit[X].SetSubComponent(True); // <- SetSubComponent
      FEdit[x].Tag:= x;
      FEdit[x].Top:= 2;
      FEdit[x].Left:= 2+(x*24);
      FEdit[x].Width:= 21+(Trunc(x/2)*12);
      FEdit[x].MaxLength:= 2+(Trunc(x/2)*2);
      FEdit[x].OnKeyPress:= FEditKeyPress;
      FEdit[x].OnExit:= FEditExit;
    end;

    dIndex:= 0;
    mIndex:= 1;
    yIndex:= 2;
    Caption:= '';
  end;

[e-gon]

Hallo Olli73,

danke für Deine Bemühungen, aber irgendwie verhindert FEdit[x]:= TEdit.Create(self); dass ich zur Laufzeit dann noch auf die Edit-Felder zugreifen kann. Als wären die Felder disabled, was sie aber nicht sind...

Gruß
e-gon

[Olli73]

Funktioniert es bei dir auch, wenn du die Komponente dynamisch erstellst?