Programm stürzt bei "end;" ab

[Klaus01]

Zitat:

Zitat von Synollus

Jup. Wenn ich F9 drücke und 1,2 eingebe und auf die 2 klicke, kommt genau derselbe Fehler. :wall:

Ich meinte schon shift+F9 (build,erzeugen), dann werden auch die Units neu erstellt.
Vielleicht schlummert da ja das Problem.

Viel Spass beim Wandertag.

Grüße
Klaus

[himitsu]

warum der abstürzt?

also erstmal hättest du gleich von Anfang an sagen können, wie man den Fehler produziert, wenn es nicht von alleine geschieht.

und dann wäre es schön gewesen, wenn du auch sagst wo der Fehler auftritt. :warn:
(wir können ja nicht bei Jedem hier im Forum auf die Suche gehn, nur weil nichts beschrieben ist ... wir haben doch nicht unendlich Zeit)


du löschst alle Labels

Delphi-Quellcode:

procedure TfrmMain.Refresh;
  ...
  For J := 1 to NrLabels do
    TLabel(FindComponent('Knot' + IntToStr(J))).Free;

und dann ist es doch kein Wunder, wenn er abstürzt, sobald er zu dem Label zurück will, von wo aus der Aufruf gestartet wurde.

Delphi-Quellcode:

procedure TfrmMain.LabelClick(Sender: TObject);
begin
  Refresh;
end; <<<<<<< der Absturz

wenn ich dir jedesmal das Haus unter den Füßen wegzieh, sobald du ein anderes Zimmer betrittst, dann stürzt du auch ab ... da isses egal, ob ich das Haus gleich wieder neu Aufbaue ... wobei hier das Haus (also das Label) sogar noch an einer anderen Stelle (wo anders im Speicher) neu aufgebaut wird.

[Klaus01]

@himitsu
.. die Labels werden aber in der draw Routine wieder erstellt.

Grüße
Klaus

[himitsu]

ja klar, aber er ist im OnClick einer der Labels und zieht sich das Label unterm Arsch weg ...
da ist es egal ob die dann wieder neue Labels erstellt werden ... das Label, welches in der Ausführung war, ist weg
und es wurde stattdessen nur ein neues/anderes Label erstellt.

[Synollus]

Danke himitsu. Ich war zu blöd, dass zu checken. :D

Ich sitze jetzt schon daran den Fehler zu beheben, aber mir fällt keine Möglichkeit ein beim Click Code auszuführen und vorher die aktuelle Methode zu verlassen.

Momentan habe ich die Aktualisierung des Baumes in einem Extra-Button, den ich per Hand anklicken muss, aber das soll ja nicht der Sinn sein. Dann bräuchte ich auch keine Labels. Es soll schließlich anwenderfreundlich sein. :mrgreen:

Gibt es eine Möglichkeit das zu umgehen? Spontan fällt mir nur ein, das in einen deaktivierten Timer zu schreiben und ihm am Ende des Oncliks einzuschalten, der sich dann wieder selber nach Ausführung des Codes abschaltet. Ich bin mir aber nicht sicher, ob er da nicht danach doch wieder in die OnClick-Prozedur zurück will. Und außerdem ist diese Lösung nicht schön. :mrgreen:

[himitsu]

nja, zumindestens das aktualisieren, könntest du über Messages lösen.

du sendest im OnClick der Labels z.B. eine selbsterstellte Windows-Nachricht an das Propgrammfenster ... und wenn diese empfangen wird, aktualisierst du die Liste.

wenn nicht explizit innerhalb der Click-Prozedur z.B. Application.ProcessMessages ausgeführt wird, dann wird die Botschaft erst nach Ende der ClickProzedur ausgeführt.

[hoika]

Hallo,

was mir am Programm aufgefallen ist.
Das 1 , 2 hinzufügen.

Fenster kleinmachen, wieder grossmachen -> Linie ist weg.

Das Problem:
Du musst das Malen im OnPaint machen

Zum "Anstossen" des OnPaint rufst Invalidate auf.

Und wird es kompliziert,
da du ja immer alle Labels löscht und wieder anlegst.


Heiko