Panel mit Label dynamisch erzeugen

[DeddyH]

Aber schaden kann es trotzdem nicht, oder?

[himitsu]

Zitat von DeddyH:

Aber schaden kann es trotzdem nicht, oder?

nee, das nicht ... wollte damit nur ausdrücken, daß FastMM keine eierlegende Wollmilchsau ist ... es kann nicht alles finden (aber Einiges).

[DeddyH]

Wenn ich Millionen Instanzen einer Klasse erzeuge und mir damit den Speicher vollhaue, kann FastMM auch nichts mehr machen, klar. Aber wenn ich mir z.B. eine Listenklasse definiere, die Objekte verwaltet, die wiederum selbst Unterobjekte erzeugen, bin ich froh, wenn FastMM mir meldet, ob der ganze Kladderadatsch auch wieder sauber entsorgt wird bzw. in welchen Fällen eben nicht. Darauf wollte ich eigentlich hinaus.

[himitsu]

Es müssen keine Millionen sein.

Probier es einfach mal aus ... egal welchen Button du drückst und danach die (Haupt)Form schließt, die 100 Forms der Schleife werden niemals gemeldet.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var i: Integer;
begin
  System.ReportMemoryLeaksOnShutdown := True;
  for i := 1 to 100 do TForm5.Create(Self);
end;

procedure TForm5.Button2Click(Sender: TObject);
var i: Integer;
begin
  System.ReportMemoryLeaksOnShutdown := True;
  for i := 1 to 100 do TForm5.Create(Self);
  TForm5.Create(nil);
end;

[DeddyH]

Die sollten ja auch vom Owner freigegeben werden, oder hab ich was übersehen?

[himitsu]

Zitat von DeddyH:

Die sollten ja auch vom Owner freigegeben werden, oder hab ich was übersehen?

Jupp, aber dennoch ist es, wärend der Existenz des Owners, bzw. wärend das Programm läuft, ein "Speicherleck", auch wenn es dann "zu spät" gschlossen wird.
Und genau das ist auch der Grund, warum FastMM dieses niemals mitbekommt.
z.B. in einen Timer ist sowas nicht sehr optimal untergebracht.

[DeddyH]

Immerhin werden die ja noch beseitigt (wenn auch spät). Mir geht es darum, aufzuspüren, welche Objekte auch nach Programmende noch im Speicher kleben, weil ich irgendwo eine Freigabe übersehen habe.

[hans ditter]

also irgendwie steh ich jetzt gerade richtig auf dem Schlauch. Ich wollte gerade die Idee von DeddyH mit dem PageControl umsetzten und frag mich gerade, wie ich die Komponenten von meinem Formular auf das PageControl kriege. Ich dachte da wäre eine Eigenschaft Parent oder so, aber nix (... zumindest hab ich nix gefunden ...)

Ich steh grad total auf dem Schlauch... wenn mir nochmal jemand helfen könnte...

thx, hans ditter

[DeddyH]

Parent müsste aber eigentlich richtig sein. Allerdings dann nicht das PageControl angeben, sondern das entsprechende TabSheet.

[hans ditter]

Hallo alle zusammen.
Nachdem ich mein Projekt irgendwie komplett in den Sand gesetzt hab und aus lauter Frust es gelöscht habe, fang ich nocheinmal besser strukturiert und motiviert an.
Allerdings hab ich eine Frage.
Ich hab jetzt ein PageControl auf das Formular gepackt, darauf wollte ich ein TabControl packen, da sich nur die Informationen (einige wenige)* ändern.
Allerdings sollen weiterhin die (selbstgeschriebenen) Panels passend zum Inhalt eingefügt werden. Muss der Parent der Panels jetzt auf TabControl oder auf PageControl gesetzt werden. Und wie lass ich alle Panels löschen und neu (passend zum Inhalt) zeichnen?

*eigentlich sind das sogar relativ wenige Informationen. Was wirklich abhängig ist, sind die Panel und 3 Statistikseiten. Wäre dafür vlt ein TabSet geeigneter? Oder sollte ich für die Statistikseiten ein TabControl und für die andere Seite ein TabSet nehmen?

Vielen Dank schonmal, ihr habt mir bei dem (für mich) sehr aufwändigen Projekt schon jetzt schon sehr geholfen. (Hab mir überlegt eine Danksagung in meinem Programm zu verewigen... )

LG, hans ditter