Komponenten während der Laufzeit erstellen und löschen

[Pytroxis]

Guten Tag,

ich erstelle während der Laufzeit Labels, der Code ist hierfür:

Delphi-Quellcode:

  procedure CreateLabel (Form:TForm; Text:string; X,Y:Integer);
  var
    Lab : TLabel;
  begin
    Lab := TLabel.Create(Form);
    Lab.Parent := Form;
    Lab.Caption := Text;
    Lab.Left := X;
    Lab.Top := Y;
  end;

Die Labels werden auf einem 2. Form erstellt.
Wie kann ich es am geschicktesten anstellen, dass die Label gelöscht werden, sobald Form2 geschlossen wird und neu erstellt werden, sobald Form2 wieder aufgerufen wird?

[Dalai]

Solcherlei Erzeugung gehört ins OnCreate des Formulars, und dann kann/sollte die Zerstörung der Objekte im OnDestroy (oder OnClose) gemacht werden.

Andererseits setzt du den Owner des Labels bereits auf das Formular, und daher ist selbiges dafür zuständig, es wieder zu wegzuräumen, wenn das Formular zerstört wird.

Grüße
Dalai

[DieDolly]

Notfalls in eine Liste speichern und diese im FormClose durchgehen und alle Labels entfernen.

[hoika]

Hallo,

Zitat:

dass die Label gelöscht werden, sobald Form2 geschlossen wird

Da du als Owner das Form angegeben hast (Lab := TLabel.Create(Form)),
passiert das bereits im Destruktor des Forms.

siehe Dalai


Und zum Anlegen ist bereits alles gesagt.

[peterbelow]

Zitat:

Zitat von Pytroxis (Beitrag 1430524)

Guten Tag,

ich erstelle während der Laufzeit Labels, der Code ist hierfür:

Delphi-Quellcode:

  procedure CreateLabel (Form:TForm; Text:string; X,Y:Integer);
  var
    Lab : TLabel;
  begin
    Lab := TLabel.Create(Form);
    Lab.Parent := Form;
    Lab.Caption := Text;
    Lab.Left := X;
    Lab.Top := Y;
  end;

Die Labels werden auf einem 2. Form erstellt.
Wie kann ich es am geschicktesten anstellen, dass die Label gelöscht werden, sobald Form2 geschlossen wird und neu erstellt werden, sobald Form2 wieder aufgerufen wird?

Die Frage macht nur Sinn, wenn Du ein autocreated Form verwendest, das nach Benutzung nicht zerstört sondern nur versteckt wird (voreingestelltes Verhalten von TForm). Eigentlich sollte man nur das Mainform in der autocreate-Liste belassen und alle anderen Forms nach Bedarf erzeugen und auch konsequent wieder zerstören, wenn der Benutzer sie schließt. Naja, jedem Tierchen sein Pläsierchen :)

Deine Labels haben alle keine Namen, dadurch sind sie leicht zu identifizieren und von Labels zu unterscheiden, die im Designer erzeugt wurden. Du könntest Dir also eine weitere Hilfsfunktion schreiben, wie

Delphi-Quellcode:

  procedure ClearLabels (Form:TForm);
  var
    LComp: TComponent;
    I : integer;
  begin
    for I:= Form.ComponentCount -1 downto 0 do begin
      LComp := Form.Components[I];
      if (LComp is TLabel) and (LComp.Name = '') then
        LComp.Free;  
    end;
  end;

[hoika]

Hallo,

Zitat:

Deine Labels haben alle keine Namen

Das hakte ich für ein Gerücht:
Delphi selbst vergibt einen Namen, wenn keiner angegeben wird.

[Pytroxis]

Zitat:

Zitat von peterbelow (Beitrag 1430564)

Delphi-Quellcode:

  procedure ClearLabels (Form:TForm);
  var
    LComp: TComponent;
    I : integer;
  begin
    for I:= Form.ComponentCount -1 downto 0 do begin
      LComp := Form.Components[I];
      if (LComp is TLabel) and (LComp.Name = '') then
        LComp.Free;  
    end;
  end;

So ähnlich habe ich es auch gelöst, werde aber morgen mal deinen Ansatz probieren, da mir dieser besser erscheint :)


Das Problem ist also, soweit gelöst, allerdings habe ich eine weitere Frage:
Ich arbeite mit der Funktion Canvas und den Labels.
Das Zeichnen lasse ich in OnPaint (+ Canvas.Refresh) und OnResize stattfinden (sofern es eine bessere Möglichkeit gibt, bin ich gerne offen für Vorschläge).
Scheinbar werden nun aber andauernd die Labels erstellt (sie flackern) und teilweise, sind die Labels an Positionen wo sie nicht sein sollten.
Gibt es eine effektive Methode um zu verhindern, dass ganz viele Labels übereinander, an der gleichen Position erstellt werden?

Delphi-Quellcode:

procedure TForm2.FormPaint(Sender: TObject);
begin
  zeichnen(self, 1);
  Canvas.Refresh;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
  DestroyLabel;
  Button1.Left := Round(ClientWidth * 0.0482954545454545);
  Button1.Top := Round(ClientHeight * 0.8140589569160998);
  Button1.Width := Round(ClientWidth * 0.9034090909090909);

  Canvas.Brush.Color := clMenu;
  Canvas.FillRect(Rect(0,0, Width, Height));
  zeichnen(self, 1);
end;

Stehe momentan ziemlich auf dem Schlauch :? :(

[peterbelow]

Zitat:

Zitat von hoika (Beitrag 1430579)

Hallo,

Zitat:

Deine Labels haben alle keine Namen

Das hakte ich für ein Gerücht:
Delphi selbst vergibt einen Namen, wenn keiner angegeben wird.

Nicht bei Komponenten, die man im Kode erzeugt. Es ist der Designer, der Namen erzeugt, nicht der Compiler.

[peterbelow]

[QUOTE=Pytroxis;1430599]

Zitat:

Zitat von peterbelow (Beitrag 1430564)

[DELPHI]
Ich arbeite mit der Funktion Canvas und den Labels.

Delphi-Quellcode:

procedure TForm2.FormPaint(Sender: TObject);
begin
  zeichnen(self, 1);
  Canvas.Refresh;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
  DestroyLabel;
  Button1.Left := Round(ClientWidth * 0.0482954545454545);
  Button1.Top := Round(ClientHeight * 0.8140589569160998);
  Button1.Width := Round(ClientWidth * 0.9034090909090909);

  Canvas.Brush.Color := clMenu;
  Canvas.FillRect(Rect(0,0, Width, Height));
  zeichnen(self, 1);
end;

Stehe momentan ziemlich auf dem Schlauch :? :(

Du machst das irgendwie völlig falsch. Wenn Du variablen Text auf ein Form schreiben willst, mach das mit Canvas.TextOut oder Canvas.TextRect, nicht, indem Du TLabels auf das Form legst. Beides zu mischen macht keinen Sinn, denn TLabels sind persistent, wenn man sie einmal angelegt hat zeichnen sie sich selbst neu, wenn das notwendig ist. Wenn sich der Text ändert, den sie anzeigen sollen, ändert man die Caption-Eigenschaft des Labels und zerstört nicht das Label und erzeugt es neu.

[Pytroxis]

Zitat:

Zitat von peterbelow (Beitrag 1430613)

Du machst das irgendwie völlig falsch. Wenn Du variablen Text auf ein Form schreiben willst, mach das mit Canvas.TextOut oder Canvas.TextRect, nicht, indem Du TLabels auf das Form legst. Beides zu mischen macht keinen Sinn, denn TLabels sind persistent, wenn man sie einmal angelegt hat zeichnen sie sich selbst neu, wenn das notwendig ist. Wenn sich der Text ändert, den sie anzeigen sollen, ändert man die Caption-Eigenschaft des Labels und zerstört nicht das Label und erzeugt es neu.

Die Labels werden auch nur gelöscht/erstellt sofern die Form geschlossen/geöffnet wird, dies sollte auch so sein, da sich jedesmal der Inhalt, die Position und die Anzahl der Labels ändert.
Deine Idee mit dem Draw Text erscheint, mir allerdings wirklich als eine bessere alternative, so erspare ich mir einiges an schreib arbeit und außerdem scheint es mir damit einfacher zu sein ein dynamisches System zu erschaffen!

Edit: Durch den Vorschlag von Peterbelow konnte ich das gesamte System nun besser umsetzen, daher besteht das oben genannte Problem auch nicht mehr.
Nun hatte ich eine neue Idee, wobei ich wieder einige Probleme beim realisieren habe:
Beim zeichnen wird nicht nur ein Objekt sondern dynamisch viele (je nach Eingabe des Benutzers) erstellt (-> Kein Problem).
Natürlich werden ab einer bestimmten Anzahl, die Objekte außerhalb des Programmes gezeichnet.
Gibt es eine gute Möglichkeit zu scrollen?
Habe Online die Idee gesehen, dass man jedesmal die Objekte neuzeichnet und verschiebt je nach Stellung der Scrollbar aber um ehrlich zu sein habe ich keine Ahnung wie ich das am geschicktesten umsetzen soll, bzw. gibt es womöglich eine schönere/bessere alternative? :)