Prüfen ob ein Objekt freigegeben wurde (Assigned geht nicht)

[Getox]

Ich muss das Übergebene Form als Owner setzen, damit die Nachrichten ja daran ausgerichtet werden. Wenn ich als Owner nil übergebe und das selber verwalten möchte, erscheinen die Nachrichten irgendwo ScreenCentered und dass sollen sie ja eben nicht.

Leider kann ich auch nicht einfach zur Laufzeit den Owner wechseln...

Unsere Forms benutzen leider so gut wie alle das "onDestroy" event, so dass ich es nicht einfach neu zuweisen kann.

Bei jedem Form ein Interface hinzufügen würde klappen wäre aber auch wieder komisch umständlich Ich wollte ja im Grunde eine Unit bauen, wo man mit minimalem aufwand (meist 1 Funktion mit 2 Parametern) überall im Programm diese Nachrichten erzeugen kann.

[sakura]

Zitat von Getox:

Unsere Forms benutzen leider so gut wie alle das "onDestroy" event, so dass ich es nicht einfach neu zuweisen kann.

Du kannst auch den destructor Destroy; override; nutzen

......

[Uwe Raabe]

Da es sich sowohl bei messageBoxToast und aCenterForm um Nachfahren von TComponent handelt, kannst du dich über die Freigabe dieser Instanzen mittels FreeNotification benachrichtigen lassen.

Delphi-Quellcode:

procedure TFormToast.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if Operation = opRemove then
  begin
    if AComponent = messageBoxToast then 
    begin
      messageBoxToast := nil;
    end;
    if AComponent = aCenterForm then 
    begin
      aCenterForm := nil;
    end;
  end;
end;

procedure TFormToast.showMessage(sMitteilung: String; aForm: TForm);
begin
  if Assigned(messageBoxToast) and (aCenterForm <> aForm) then
  begin
    messageBoxToast.HideAll;
    aCenterForm.RemoveFreeNotification(Self);
    messageBoxToast.RemoveFreeNotification(Self);
    FreeAndNil(messageBoxToast);
  end;

  if not Assigned(messageBoxToast) then
  begin
    messageBoxToast := TAdvSmartMessageBox.Create(aForm);
    aCenterForm := aForm; //aCenterForm ist Klassenvariable
    messageBoxToast.DisplayLocation := dlbottomCenter;
    messageBoxToast.DisplayRelative := drForm;
    aCenterForm.FreeNotification(Self);
    messageBoxToast.FreeNotification(Self);
  end;
...

[Getox]

Zitat von Uwe Raabe:

Da es sich sowohl bei messageBoxToast und aCenterForm um Nachfahren von TComponent handelt, kannst du dich über die Freigabe dieser Instanzen mittels FreeNotification benachrichtigen lassen.

Vielen vielen Dank! Das war des Rätsels Lösung!

Ich musste nur noch ein inherited; unten in die Notification -Prozedur hinzufügen, weil sonst alles gehangen hat, aber nun läuft es.

[Neumann]

Ich würde es vielleicht so machen:

Alternative 1
In jedem form.create auch gleich die box mit erzeugen, die Box unsichtbar setzten.
Wenn die Box angezeigt werden soll, Text zuweisen und showmodal;
Wir das Formular geschlossen dann auch freeandnil für die Box.

Alternative 2
Man könnte auch eine Box für alle Meldungen erzeugen und die wird dann immer nur mit Text versorgt und angezeigt.
Anstatt Owner könnte die Box dann eine Variable FromForm haben, eben die Form die die Box aufgerufen hat, müsste dann bei Aufruf gesetzt werden.
Positionieren sollte nicht das Problem sein, geht auch über FromForm. Natürlich geht dann nur eine Meldung zur Zeit.

Würde wohl Alternative 2 einsetzten.