Eigene Komponente mit OnClose-Event

[himitsu]

Zitat:

kann es zu merkwürdigen Nebeneffekten kommen.

Darum muß der auch im BeforeDestruction aufgerufen werden, denn die Form sendet erst an alle Komponenten das BeforeDestruction und danach nacheinander Free/Destroy aufgerufen.

[Jasocul]

Das mache ich ja jetzt auch:

Delphi-Quellcode:

procedure TMyComp.BeforeDestruction;
begin
  if Assigned(FOnDestroy) then
  begin
    FOnDestroy(Self);
  end;

  inherited;
end;

In der Form sieht es dann so aus:

Delphi-Quellcode:

procedure TfrmMain.MyCompDestroy(Sender: TObject);
begin
  ShowMessage('Meine Komponente OnDestroy');
end;

Das ShowMessage wird zwar durchlaufen, aber nicht ausgeführt.
Wenn ich die Variante von Sir Rufo verwende, ist die Bedingung im If nicht erfüllt. Dementsprechend ist das Verhalten dann identisch, bis auf die zusätzliche Prüfung.

[Sir Rufo]

Also ich weiß nicht, was da nicht funtionieren sollte, denn das funktioniert hier einwandfrei:

Die Komponente

Delphi-Quellcode:

unit MyComponent;

interface

uses
  System.Classes;

type
  TMyComponent = class( TComponent )
  private
    FOnDestroy: TNotifyEvent;
  protected
    procedure NotifyOnDestroy;
  public
    procedure BeforeDestruction; override;
  published
    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  end;

implementation

{ TMyComponent }

procedure TMyComponent.BeforeDestruction;
begin
  NotifyOnDestroy( );
  inherited;

end;

procedure TMyComponent.NotifyOnDestroy;
begin
  if Assigned( FOnDestroy ) then
    FOnDestroy( Self );
end;

end.

und die Form

Delphi-Quellcode:

unit Unit2;

interface

uses
  MyComponent,

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class( TForm )
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate( Sender: TObject );
    procedure Button1Click( Sender: TObject );
    procedure Button2Click( Sender: TObject );
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FMyComponent: TMyComponent;
    procedure CreateMyComponent;
    procedure MyComponentDestroy( Sender: TObject );
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click( Sender: TObject );
begin
  FreeAndNil( FMyComponent );
end;

procedure TForm2.Button2Click( Sender: TObject );
begin
  CreateMyComponent( );
end;

procedure TForm2.CreateMyComponent;
begin
  FreeAndNil( FMyComponent );
  FMyComponent := TMyComponent.Create( Self );
  FMyComponent.OnDestroy := MyComponentDestroy;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TForm2.FormCreate( Sender: TObject );
begin
  CreateMyComponent( );
end;

procedure TForm2.MyComponentDestroy( Sender: TObject );
begin
  if not( csDestroying in Application.ComponentState ) then
    ShowMessage( 'Ich bin dann mal weg!' );
end;

end.

Solange die Anwendung selber nicht beendet wird, erscheint immer die Message.

[Jasocul]

Zitat von Sir Rufo:

Solange die Anwendung selber nicht beendet wird, erscheint immer die Message.

Ah, da ist unser Missverständnis. Ich erzeuge die Instanz nicht zur Laufzeit. Dementsprechend zerstöre ich diese auch nicht selbst.
Die MainForm der Anwendung wird geschlossen und somit auch die Anwendung. Das Handle der MainForm ist dann im Event schon nicht mehr verfügbar.
Was allerdings funktioniert ist folgendes:
MessageBox(Application.Handle, 'Komponente OnDestroy', 'TMyComp', 0); Also ist nur das Handle der MainForm ungültig. Das Handle der Anwendung ist aber noch nutzbar.

[Sir Rufo]

Zitat von Jasocul:

Zitat von Sir Rufo:

Solange die Anwendung selber nicht beendet wird, erscheint immer die Message.

Ah, da ist unser Missverständnis. Ich erzeuge die Instanz nicht zur Laufzeit. Dementsprechend zerstöre ich diese auch nicht selbst.

Das ist doch völlig egal, wer wann was erzeugt und wann wer was freigibt.

Es gibt hier nur eine Regel, die man beachten muss

Delphi-Quellcode:

  if not( csDestroying in Application.ComponentState ) then
    ShowMessage( 'Ich bin dann mal weg!' );

oder auf deutsch:

Wenn die Anwendung selber den Status Zerstören hat, dann darf ich bestimmte Dinge nicht mehr machen (wie. z.B. ShowMessage aufrufen).

[himitsu]

ShowMessage wird hier wohl über CreateDialogIndirect erstellt und das reagiert auf Application.Terminated und schießt sich sofort wieder, da es so eine VCL-TForm ist.
(altes Delphi oder altes Windows)

[Jasocul]

@Sir Rufo, das ist mir schon klar. Ich bin halt davon ausgegangen, dass das BeforeDestruction ausgeführt, bevor irgendwas anderes tatsächlich zerstört wird. Dies ist aber offensichtlich eine falsche Annahme gewesen. Asche auf mein Haupt.
Als Nutzer einer Komponente würde es mich allerdings schon irritieren, dass ich erst prüfen muss, ob ich in der Anwendung überhaupt ein ShowMessage aufrufen darf, wenn das gewünschte Ereignis abgearbeitet wird.

@himitsu:
Es macht zumindest den Eindruck, dass es so abläuft.

[Mikkey]

Zitat von Jasocul:

Als Nutzer einer Komponente würde es mich allerdings schon irritieren, dass ich erst prüfen muss, ob ich in der Anwendung überhaupt ein ShowMessage aufrufen darf, wenn das gewünschte Ereignis abgearbeitet wird.

Musst Du ja nicht, Du schreibst ja selbst:

Zitat von Jasocul:

Mache ich es mit Message-Handling, ist die Applikation offensichtlich schon nicht mehr verfügbar. Zumindest habe ich keinen Zugriff mehr. Ein einfaches ShowMessage wird schon nicht mehr angezeigt, obwohl fehlerfrei durch den Source gelaufen wird

Wenn das Programm beendet wird, wird eine WM_QUIT-Nachricht losgelassen, die die Haupt-Nachrichtenschleife beendet. Danach ist halt kein normales Arbeiten mit Windows mehr möglich.

[Sir Rufo]

@Jasocul

Was glaubst du wohl, wieviele Nutzer von Kettensägen überrascht geschaut haben, als sie den Ast abgesägt haben auf dem sie selber gerade saßen?

Egal was man hat (Kettensäge, Komponente, ...): Man kann es richtig oder falsch verwenden.

Und das oben geschilderte Verhalten ist kein Alleinstellungsmerkmal der Kettensäge.

[Jasocul]

@Mikkey:
Ja, ich weiß das. Aber die Kollegen, die die Komponente nutzen, sehen ja nur, dass es ein Event gibt, das sie benutzen können. Was dahinter steckt, ist erstmal uninteressant. Wenn ich in so einem Event eine Nachricht ausgeben möchte, sollte das auch passieren.

@Sir Rufo:
Natürlich muss man aufpassen, dass das, was man benutzt, auch da ist. Aber bisher war es bei mir bisher nicht erforderlich, dass ich prüfen muss, ob die Anwendung noch "existiert", in der ich den Code ablaufen lasse.