Eigenschaften von erzeugten Komponenten

[Maya]

Na ja, viel spannendes gibt es da nicht zu sehen.

Delphi-Quellcode:

unit frmneuerEintrag;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, jpeg;

type
  Tneuer_Eintrag = class(TForm)
    imgLogo: TImage;
    lblUberschrift: TLabel;
    lbl1: TLabel;
    lbledtPNr: TLabeledEdit;
    mmoBetreff: TMemo;
    lbl4: TLabel;
    dtp1: TDateTimePicker;
    lbl_Datum: TLabel;
    grp1: TGroupBox;
    btn3: TBitBtn;
    btn4: TBitBtn;
    grp2: TGroupBox;
    btn1: TBitBtn;
    btn2: TBitBtn;
    lbledtZuarbeit: TLabeledEdit;
    lbledtAblage: TLabeledEdit;
    dtpSchreiben: TDateTimePicker;
    lbl2: TLabel;
    dtpPost: TDateTimePicker;
    lbl3: TLabel;
    btnHinzu: TBitBtn;
    btnAbbrech: TBitBtn;
    procedure AddNewLabeledEdit(aLeft, aTop, aWidth: Integer; const aCaption, aName, aParent: string);
    procedure FormShow(Sender: TObject);
    procedure btnAbbrechClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Postart: Integer;
  end;

var
  neuer_Eintrag: Tneuer_Eintrag;


implementation

{$R *.dfm}

procedure TneuerEintrag.AddNewLabeledEdit(aLeft, aTop, aWidth: Integer; const aCaption, aName, aParent: string);
var
  lbledt: TLabeledEdit;
begin
  lbledt:=TLabeledEdit.Create(self);
  lbledt.Left:=aLeft;
  lbledt.Top:=aTop;
  lbledt.Width:=aWidth;
  lbledt.EditLabel.Caption:=aCaption;
  lbledt.Name:='lbledt'+aName;
  lbledt.Parent:=aParent;

  lbledt.Font.Name:='Arial';
  lbledt.EditLabel.Font.Name:='Arial';
  lbledt.Font.Size:=9;
  lbledt.EditLabel.Font.Size:=9;
  lbledt.Show;
end;

procedure Tneuer_Eintrag.btnAbbrechClick(Sender: TObject);
begin
  Close;
end;


procedure Tneuer_Eintrag.FormShow(Sender: TObject);
begin
  if (Postart=1) then
    begin
      lbl_Datum.Caption:='Datum Posteingang:*';
      AddNewLabeledEdit(16,86,121,'Anrede:','ABS_Anrede',grp1);
    end;
end;

Danach kommt nix mehr. Ist ja noch alles im Aufbau.

[DeddyH]

TneuerEintrag <> Tneuer_Eintrag Ich hatte das erst für einen Tippfehler gehalten.

[Gollum]

Hallo,

Zitat:

procedure AddNewLabeledEdit(aLeft, aTop, aWidth: Integer; const aCaption, aName, aParent: string);

der Parameter aParent sollte besser nicht von Typ String sein.

[DeddyH]

Stimmt, TWinControl wäre passender (evtl. mit Defaultwert auf self) (geht nicht).

[Maya]

*Head meets Desk*

Selber schon bemerkt und korrigiert.
Danke für eure Hilfe.

So, hoffentlich letzte Frage: Wie bekomme ich die ganzen Komponenten am Ende am elegantesten freigegeben?
Wenn ich in das OnClose-Ereignis z.B. "lbledtABS_VName.Free" eingebe, kommt ja 'ne Fehlermeldung á la "undeklarierter Bezeichner", was ja klar ist. (Versuchen kann man es ja trotzdem mal. )

[DeddyH]

Du hast ja beim Erzeugen einen Owner angegeben, daher musst Du die Komponenten nicht selbst freigeben, das übernimmt der Owner, das ist nämlich seine Aufgabe.

[Maya]

Also müsste ich die Groupboxen freigeben?
Problem an der Sache ist aber, dass auch wenn ich die Form schließe und sie wieder öffne mit 'ner anderen Auswahl, motzt Delphi-Lein 'rum, weil einige Komponenten schon unter gewisse Namen vorhanden sind. D.h. sie sind nicht freigegeben wurden.

So und um mal meinen Gedankengang zu Ende zu führen: ich müsste die Groupboxen freigeben (sind zweie), wo die LabeledEdits drinne sind und beim neuen OnShow-Ereignis des Fensters neu erzeugen, ja?

[DeddyH]

Der Owner ist das Formular, der Parent dürfte die jeweilige GroupBox sein. Während der Owner sich um den Speicher kümmert ist der Parent für die Darstellung zuständig. Aber das nur am Rande. Willst Du wirklich bei jedem OnShow-Eventaufruf die Komponenten neu erzeugen? Vielleicht wäre es dann einfacher, das Formular dynamisch anzulegen und freizugeben.

[Maya]

Das Formular komplett dynamisch anlegen möchte ich eigentlich nicht, weil es immer komplett gleich aussieht, bis auf die knapp 15 LabeledEdits und max. 6 Comboboxen (je nach Auswahl), welche dynamisch erzeugt werden. Das sind ja auch nicht die einzigen Komponenten auf den Formularen.

Gibt es denn dann nicht eine Möglichkeit, das Formular richtig zu schließen und bei jeden Aufruf neu zu kreiieren, also nicht nur einfach anzuzeigen? Dann wären die Komponenten doch freigegeben und mein Problem eigentlich gelöst.