Wie erstelle ich dynamische forms richtig ?

[haentschman]

Zitat:

TObjectList ist eine Liste von TObjects, wenn ich aus dieser Liste ein Object entfernte wird es automatisch freigegeben.

Richtig, wenn du es willst. Bei Nein verhällt sich die Liste wie eine TList. Du kannst nur über den Index auf das Objekt zugreifen.

Zitat:

TObjectDictionary überprüft automatisch ob ein TObject noch gebraucht wird oder nicht und gibt dies automatisch frei wenn es nicht mehr gebraucht wird.

Nicht ganz. TDictionary verhält sich, wenn man es möchte, wie eine TObjectList. ABER über den Key (string, Integer, TBlubb was auch immer) kannst du dir das zugehörige Objekt direkt holen.

Delphi-Quellcode:

unit Unit2;

interface

uses
  System.Classes, System.Generics.Collections, System.Generics.Defaults, System.SysUtils,
  Vcl.Forms, Vcl.Controls, Vcl.StdCtrls;
  form_child; // :-) entspricht nicht dem Styleguide...besser FormChild


type
  TForm2 = class(TForm)
    btnCreateChild: TButton;
    lblList: TLabel;
    lblDict: TLabel;
    lblDict2: TLabel;
    procedure btnCreateChildClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
   private
      FList: TObjectList<TForm>;
      FDictionary: TObjectDictionary<string, TForm>;
   public

   end;

var
   Form2: TForm2;

implementation

procedure TForm2.FormCreate(Sender: TObject);
begin
  FList := TObjectList<TForm>.Create(True); // True gibt die Objekte selbstständig frei
  FDictionary := TObjectDictionary<string, TForm>.Create([doOwnsValues]); // doOwnValues gibt die Objekte (Value) selbstständig frei
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FList.Free;
  FDictionary.Free;
end;

procedure TForm2.btnCreateChildClick(Sender: TObject);
var
  I: Integer;
  Child: TForm;
  TempForm: TForm;
begin
  for I := 0 to 2 do
  begin
    Child := Tfrm_child.Create(nil); // :-) entspricht nicht dem Styleguide...besser TfrmChild
    Child.Name := 'Child' + IntToStr(I);
    Child.Align := alLeft;
    Child.Parent := cxScrollbox;
    Child.AlignWithMargins := True;
    Child.pnlchild.Color := clRed;
    Child.pnlchild.Caption := 'ArrayINDEX = ' + IntToStr(Integer);

    FList.Add(Child);
    FDictionary.Add(Child.Name, Child);

    Child.Show;
  end;


  lblList.Caption := 'Name des ersten Eintrages: ' + FList[0].Name;
  lblDict.Caption := 'Name des 2. Eintrages im Dictionary: ' + FDictionary.Items['Child2'].Name;

  // Wenn man nicht weiß ob der Schlüssel existiert
  FDictionary.TryGetValue('Child2', TempForm);
  if Assigned(TempForm) then
  begin
    lblDict.Caption := 'Name des 3. Eintrages im Dictionary: ' + TempForm.Name;
  end
  else
  begin
    lblDict.Caption := 'Name des 3. Eintrages im Dictionary: nicht gefunden';
  end;
end;

end.

Delphi-Quellcode:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 299
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblList: TLabel
    Left = 48
    Top = 96
    Width = 26
    Height = 13
    Caption = 'lblList'
  end
  object lblDict: TLabel
    Left = 48
    Top = 120
    Width = 28
    Height = 13
    Caption = 'lblDict'
  end
  object lblDict2: TLabel
    Left = 48
    Top = 144
    Width = 34
    Height = 13
    Caption = 'lblDict2'
  end
  object btnCreateChild: TButton
    Left = 40
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Create'
    TabOrder = 0
    OnClick = btnCreateChildClick
  end
end

[Int3g3r]

Delphi-Quellcode:

uses
  System.Classes, System.Generics.Collections, System.Generics.Defaults, System.SysUtils,
  Vcl.Forms, Vcl.Controls, Vcl.StdCtrls;

Mit CTRL+Leertaste wird mir System.Generics automatisch vervollständigt aber nachher steht:

Zitat:

Unit-Name 'system.generics' kann nicht aufgelöst werden

PS: Wie sagt man dem Menü CTRL+Leertaste richtig ?

[haentschman]

Was hast du denn vor? CTRL+Leertaste ist die Vervollständigung im QT. Da hat System.Generics nichts zu suchen. Du must nur die Klassen aus der Unit instanzieren.
...oder ich verstehe was falsch.
Ein wenig QT wäre angebracht.

[Int3g3r]

Zitat von haentschman:

Was hast du denn vor? CTRL+Leertaste ist die Vervollständigung im QT. Da hat System.Generics nichts zu suchen. Du must nur die Klassen aus der Unit instanzieren.
...oder ich verstehe was falsch.
Ein wenig QT wäre angebracht.

Naja wenn ich eine

Code:

FList: TObjectList<TForm>;

einfüge benötige ich die unit system.generics. Sonst lässt sich mein Projekt nicht kompillieren da er eine TObjectList nicht kennt(Undeklarierter Bezeichner).

Somit habe ich versucht die system.generics in der unit einzubinden, diese kann er aber nicht auflösen.

Bei deinem Beispiel hast du die

System.Generics.Collections
System.Generics.Defaults

Eingebunden. Somit habe ich gedacht, wenn ich die System.Generics einbinde werden mir beide (also System.Generics.Collections und System.Generics.Defaults) eingebunden. System.Generics beinhaltet ja die Collections und Defaults. Anscheinend ist dem aber nicht so.

Naja habe nun gemerkt das es nur geht wenn ich diese einzeln einbinde.

[haentschman]

[TiGü]

Zitat von Int3g3r:

Eingebunden. Somit habe ich gedacht, wenn ich die System.Generics einbinde werden mir beide (also System.Generics.Collections und System.Generics.Defaults) eingebunden. System.Generics beinhaltet ja die Collections und Defaults. Anscheinend ist dem aber nicht so.

Naja habe nun gemerkt das es nur geht wenn ich diese einzeln einbinde.

Delphi hat KEINE echten Namespaces, so wie bspw. C#.
Du musst immer die vollständigen Unit-Namen hinschreiben.