AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Exception wird nicht angezeigt - Ist das ein Fehler?
Thema durchsuchen
Ansicht
Themen-Optionen

Exception wird nicht angezeigt - Ist das ein Fehler?

Ein Thema von samso · begonnen am 9. Dez 2016 · letzter Beitrag vom 9. Dez 2016
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.550 Beiträge
 
Delphi 12 Athens
 
#1

AW: Exception wird nicht angezeigt - Ist das ein Fehler?

  Alt 9. Dez 2016, 11:17
Da hier die Form "lokal" ist und von außen geschlossen wird

Delphi-Quellcode:
// weg mit der bösen globalen Variable!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Self); // oder nil, da wir das ja eh alles immer selber freigeben
  try
    Form2.PopupParent := Self; // damit die Form2 immer über der Form1 liegt (nicht nötig bei ShowModal)
    Form2.Show; // hier natürlich ShowModal, da sonst ja das Release/Free die Form auch ohne Exception sofort schließt ;)
    raise Exception.Create('Ein Fehler');
  finally
    Form2.Free;
  end;
end;
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    ...
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation);
  private
    Form2: TForm2;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.PopupParent := Self; // damit die Form2 immer über der Form1 liegt (nicht nötig bei ShowModal)
    Form2.Show; // hier natürlich ShowModal, da sonst ja das Free
    raise Exception.Create('Ein Fehler');
  except
    FreeAndNil(Form2);
    raise;
  end;
end;

procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if Operation = opRemove then begin
    if AComponent = Form2 then // Form2 sagt mir, dass es mich jetzt verlassen will > siehe das Create(Self)
      Form2 := nil; // stattdessen könnte man auch die Form2-Variable im TForm2.Destroy auf nil setzen, aber TForm2 weiß ja eigentlich nichts von dieser Variable
  end;
  inherited;
end;

// und nicht das caFree im TForm2.OnClose vergessen, außer man will die bestehende Form später erneut anzeigen können
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 9. Dez 2016 um 11:20 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz