Eigene Tray-Benachrichtigungen anzeigen statt TTrayIcon

[DieDolly]

Zitat:

Die Kapselung in Delphi unterstützt das nicht. Aber wie alleine schon das aktuelle Snipping Tool, das unter Windows 11 nun bei einem Druck auf die Drucken Taste erscheint, zeigt, gibt es die Möglichkeit, eine Grafik hinzuzufügen unter Windows.

Ich verstehe nicht, was dein Text mit meinem Benachrichtungs-Problem zu tun hat.

Dass dieses Notification-Teil mein Problem nicht löst, weiß ich.
Deswegen möchte ich ja was eigenes haben - zusätzlich. Mein erster Versuch ist oben. Der Code oben zeigt nur ganz simpel ein Fenster an der richtigen Stelle an.
Aber das zweite soll über dem ersten angezeigt werden mit der Möglichkeit, dass die Fenster automatisch verschwinden und Nachrutschen bzw wenn man das untere schließt, soll das obere nachrutschen.

Mein Problem ist, dass ich diese Verwaltung mit automatischer Schließgung ohne Speicherlecks nicht entwickelt bekomme.

[jaenicke]

Dafür brauchst du eine übergeordnete Klasse, die sich um die Verwaltung kümmert, im Grunde so wie das TNotificationCenter. Dann zeigt das TToastCenter die Fenster an und verschiebt sie bei Bedarf. Der einzelne Toast kann z.B. ein Event haben, das beim Ausblenden gefeuert wird. Dann kann das TToastCenter ggf. weitere sichtbare Fenster verschieben.

Wie wäre es so... mal schnell runtergetippt...
Toasts.zip
Das ist nur ein Beispiel, um eine mögliche Architektur zu zeigen.

[DieDolly]

Ich habe mir das angeguckt und habe jetzt verstanden, was ich gestern falsch gemacht habe. Vielen Dank.

[DieDolly]

Ich habe den Code an meine Bedürfnisse angepasst, möchtest du dir das angucken? Kannst mir ja sagen, ob es eine Note "mangehaft" oder "ausreichend" ist

[jaenicke]

Die Logik verstehe ich nicht so ganz. Warum übergibst du nicht einfach den Typ des Formulars, damit der Toast dieses erstellen kann?

Wenn du die Instanz selbst übergibst, musst du die vorher selbst erstellen. Und wenn du wie aktuell die globale Variable übergibst, kannst du immer nur einen Toast pro Formular absetzen.

Also so:

Delphi-Quellcode:

  TToast<T: TForm> = class
  private
    FForm: T;
  public
    constructor Create;
    property Form: T read FForm;
  end;

{ TToast<T> }

constructor TToast<T>.Create;
begin
  inherited Create;
  FForm := T.Create(nil);
  FForm.OnShow := FormShowEvent;
  FForm.OnClose := FormCloseEvent;
  FTimer := TTimer.Create(nil);
end;

Nebenbei:
Deine Quelltextformatierung ist ja der aus dem offiziellen Styleguide sehr ähnlich. Das ist sehr gut. Wie wäre es, wenn du auch die Einrückung auf dem Standard lässt (2 Zeichen)? Bei 1 Zeichen sieht man kaum die Struktur, braucht daher länger um den Quelltext zu lesen.

[DieDolly]

Zitat:

Wenn du die Instanz selbst übergibst, musst du die vorher selbst erstellen.

In meinem Programm erstelle ich alle Instanzen für alle Formulare, sobald sie benötigt werden, selber. Dafür habe ich eine Unit geschrieben die sich um alles kümmert.
In dem von mir hochgeladenen Code übergebe ich Form1 und Form2, weil es im Endprodukt auch so sein würde. Das Erzeugen dieser Formulare geschieht vorher.
Auch mache ich das so, weil ich dann genau eine zentrale Stelle habe, an der Instanzen für Formulare erzeugt werden.

[DieDolly]

Ich habe jetzt wohl ein anderes Problem.

In der Unit Toast wird OnClose des Formulars mit FormCloseEvent überschrieben.
Mein eigentlicher Code in FormClose, der der im eigentlichen Formular steht, wird dann nicht mehr aufgerufen. Kann man das irgendwie erzwingen?