So senden Sie ein Ereignis an mehrere Formulare in Delphi

Question

In meiner Anwendung habe ich mehrere Formulare, die zur gleichen Zeit sichtbar sein können und alle zeigen Speicherplatz (Dateien, Festplattengröße usw.) in der gleichen Größe Einheiten. Alle von ihnen zeigen Speicherplatz in Bytes, KB, MB, GB oder TB. Ich habe auch ein separates Einstellungsformular, in dem der Benutzer die Anzeigegröße ändern kann, die er in den anderen Formen möchte. Sobald der Benutzer im Einstellungsformular auf OK klickt, möchte ich, dass alle anderen (offenen) Formulare sofort ihre Größeneinstellungen ändern.

Jedes Formular verfügt über eine geschützte Prozedur SetViewSettings, die sich um den Job kümmert. Sie sind alle Abkömmlinge einer Vorfahrenform, die SetViewSettings als virtuell und abstrakt definiert. Die tatsächlich angezeigten Formulare überschreiben die SetViewSettings-Methode des Vorfahren. Bis jetzt keine Probleme.

Weil ich mag nicht jede einzelne Form nennen (FormX.SetViewSetttings, FormY.SetViewSettings, etc.), ich die folgende Lösung verwenden:

procedure TApplicationForms.SetUnits; 
var 
    I: Integer; 
begin 
    for I := 0 to Screen.FormCount - 1 do 
    if Screen.Forms[I] is TfrAncestorInfo then 
     with Screen.Forms[I] as TfrAncestorInfo do 
     acSetUnits.Execute; 
end; 

Dieses Verfahren aus dem SettingsForm aufgerufen wird als Der Benutzer klickt auf OK. TFrAncestorInfo ist ein Nachkomme von TForm und deklariert die SetViewSettings-Methode als virtuell und abstrakt. acSetUnits ist eine in TfrAncestorInfo deklarierte Aktion, die nur SetViewSettings aufruft. Das alles funktioniert gut, aber das Risiko liegt darin, eine neue Abkömmlingsform von TFrAncestorInfo zu erstellen, während Sie vergessen, die SetViewSettings-Methode zu überschreiben. In diesem Fall werden Sie auf eine 'Abstract Error'-Ausnahme stoßen.

Gibt es Alternativen zum Aufrufen der SetViewSettings-Methode in den Formularen, ohne alle untergeordneten Formulare einzeln aufzulisten (aufzurufen)? Ich kenne Nachrichten und Ereignisse, aber ich weiß nicht, wie man diese in einer Situation mit mehreren Formen benutzt. Allgemein: Wie kann ich eine Nachricht an alle TFrAncestorInfo-Abkömmlingsformulare direkt senden oder ein Ereignis generieren, ohne sie einzeln aufzulisten?

Answer 1

Eine Option (es gibt viele andere mögliche Optionen) wäre, eine benutzerdefinierte Nachricht an jedes Formular zu senden. Sie müssen sich keine Gedanken über das Überschreiben von virtuellen/abstrakten Elementen, Typprüfungen usw. machen. Nur die Formulare, die einen Nachrichtenhandler implementieren, reagieren auf die Nachricht, der Rest ignoriert sie einfach.

const 
    WM_SETTINGS_UPDATED = WM_APP + 1; 

procedure TApplicationForms.SetUnits; 
var 
    I: Integer; 
begin 
    for I := 0 to Screen.FormCount - 1 do 
    Screen.Forms[I].Perform(WM_SETTINGS_UPDATED, 0, 0); 
end; 

type 
    TSomeForm = class(TBaseForm) 
    private 
    procedure WMSettingsUpdated(var Message: TMessage); message WM_SETTINGS_UPDATED; 
    protected 
    procedure SetViewSettings; 
    end; 

procedure TSomeForm.WMSettingsUpdated(var Message: TMessage); 
begin 
    SetViewSettings; 
end; 

procedure TSomeForm.SetViewSettings; 
begin 
    //... 
end;