Suche Lösung: Objekt soll sich in eigener Prozedur selbst zerstören

[erik-17]

Hallo,

ich hab mal wieder eine Frage an euch Delphi-Freunde:

Ich habe mir eine neue Komponente geschaffen: Abgeleitet aus TPanel mit mehreren Edit-Feldern, Labels, TrackBar, CheckBox und einem Button drauf (Alles wird während der Laufzeit bzw. im Form1.OnCreate, erzeugt). Dem Button habe ich eine OnClick-Methode verpasst, die auf eine Prozedur in der gleichen Unit. Durch den Button-Klick soll das Panel verschwinden und die Ansicht auf der MainForm soll aktualisiert werden.

Im Moment sieht mein Code so aus:

Delphi-Quellcode:

procedure TNeuesPanel.Loeschen(Sender:TObject);
begin
  if sender is TButton then
    begin ignoreAtSaving:=true;  //Eigenschaft, die vor dem Speichern überprüft wird
          CBactive.checked:=false;  //Panel wird deaktiviert
          Hide;  //Provisorische Lösung
          // Form1.Refreschen; 
    end;
end;

procedure TForm1.Refreschen;
var i:integer;
begin
  speichern;  //Speichert Eigenschaften der Panels in Datei (ohne das weggeklickte Panel)
  for i:=1 to anzahlpanels do
    NeuesPanel[i].Destroy;;  //Alle Panels sollen verschwinden...
  LadeVonDatei('costum',Form1,ScrollBox1);  //...um danach wieder neu geladen zu werden (natürlich ohne das gelöschte)
  //procedure LadeVonDatei(datei:string; Owner: TComponent; ParentObjekt: TWinControl); 
end;

Das Problem, wenn man Form1.Refreschen; verwendet, ist schon einleuchtend: Es gibt eine Zugriffsverletzung, weil man ein Objekt freigeben möchte, was noch eine Prozedur ausführt...

Wie kann ich das Problem lösen, wenn das Objekt (NeuesPanel) freigegeben werden soll, um Platz für das Neuladen zu schaffen? Kann man dem Button (OnClick) eine Prozedur zuweisen, die in der Main-Unit liegt? Und gibt es dann auch noch Zugriffsverletzungen?

Wäre über Antworten sehr dankbar ;)

[mkinzler]

Dann entferne den Callback
Statt .Destroy() .Free() aufrufen

[erik-17]

Dankeschön :)
Hätte nie gedacht, dass das so einfach ist ;)

Was macht denn das Free; anders als das Destroy; ?

[mkinzler]

Es werden diverse Überprüfungen durchgeführt.

[Deep-Sea]

Diverse ist vlt. übertrieben. Auszug aus der Unit System.pas:

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Nichtsdestotrotz ist wie schon erwähnt, trotzdem Free aufzurufen und nichts anderes :-D

[erik-17]

Neues Problem :(
In der Prozedur 'LadeVonDatei' wird jedes (eins weniger als vorher) NeuesPanel[xy] neu erstellt, und somit der alte Speicherplatz überschrieben, der vorher mit Free; geleert wurde. Jetzt bekomm ich aber immer einen Zugriffsfehler (wenn ich eins Lösche, Sourcecode s.o.), außer wenn ich das erste Panel in der Reihe (NeuesPanel[1]) lösche und sich noch mindestens 2 weitere dort befinden :shock:
Der Debugger gibt mir den Fehler aus, nach dem er in der letzten Zeile von der Loeschen-Prozedur fertig ist, also erst nach dem "end;"

Ich weiß nicht, in welcher Weise die beiden beschriebenen Sachen zusammenhängen, aber kann man das Problem auch noch lösen??
Meine sehr primitive Idee wäre, in der Löschen-procedure einen Timer auf der MainForm zu starten und die Schleife und das LoadFromFile dort reinzuhauen...

Gibt es da vielleicht eine bessere Lösung :wink:

Wie immer dankbar für Antworten :D

[shmia]

Deine Objekte nennt man übrigens Controls (=visuelle Komponenten).
siehe Code-Library: Controls die sich selbst zerstören

[erik-17]

Danke, shmia, es funktioniert super. Es kommen keine Fehlermeldungen mehr. Aber bei mir sieht es nicht so aus, als würden die Panels verschwinden O.o Muss mich wohl noch ein bisschen damit beschäftigen :-D

[ConnorMcLeod]

Zitat:

Zitat von erik-17 (Beitrag 1095800)

Delphi-Quellcode:

  for i:=1 to anzahlpanels do
    NeuesPanel[i].Destroy;;  //Alle Panels sollen verschwinden...

Gewöhn Dir beim Zerstören von Dingen an, die Reihenfolge umzukehren, also:

Delphi-Quellcode:

  for i := anzahlpanels downto 1 do

Wenn das in Fleisch und Blut übergeht, dann klappts auch mit Listen etc. ;-)