Form1 benachrichtigen, wenn über Form2 (setup) eine Einstellung verändert wurde?

[NoGAD]

Einen schönen Tag der Arbeit! :)

Angenommen, ich lege einen Schalter auf meiner Setup-Form um, damit auf Form1 etwas dekativiert/aktiviert wird, wie würde ein Weg aussehen, damit es im guten Programmierstil umgesetzt wird?

Speziell möchte ich gerne ein TPanel auf Form1 anzeigen bz. verstecken lassen - je nach Checkbox1.checked.

Momentan habe ich noch einen Record in Benutzung, um die Setup-Struktur zu verwalten, aber davon bekommt die Form1 ja nix mit.

Meine Überlegung wäre, dass es

A) per SendMessage lösbar wäre - aber das habe ich noch nie gemacht
B) in Form1 public Proceduren/Functionen deklariert sind, die ich dann aufrufe, wenn CheckBox1 sich ändert.

LG Mathias

[klaus Meier9]

" guten Programmierstil "

Könnte über das Observer-Pattern gemacht werden:
https://sourcemaking.com/design_patt...bserver/delphi

[dummzeuch]

Zitat:

Zitat von NoGAD (Beitrag 1488361)

Speziell möchte ich gerne ein TPanel auf Form1 anzeigen bz. verstecken lassen - je nach Checkbox1.checked.

Momentan habe ich noch einen Record in Benutzung, um die Setup-Struktur zu verwalten, aber davon bekommt die Form1 ja nix mit.

Meine Überlegung wäre, dass es

A) per SendMessage lösbar wäre - aber das habe ich noch nie gemacht
B) in Form1 public Proceduren/Functionen deklariert sind, die ich dann aufrufe, wenn CheckBox1 sich ändert.

Ich würde dazu einen Event oder Callback verwenden (eigentlich unterscheiden die sich nur darin, wie die aufzurufende Methode übergeben wird):

Delphi-Quellcode:

type
  TForm1 = ...
  private
    procedure HandleConfigChanged(_Sender: TObject; const _CurrentConfig: TConfigRecord);
  end;

// und

type
  TOnConfigChanged = procedure(_Sender: TObject; const _CurrentConfig: TConfigRecord) of object; 
type
  TForm2 = ...
    procedure Checkbox1Click(Sender: TObject);
  private
    FOnConfigChanged: TOnConfigChanged;
  public
    property OnConfigChanged: TOnConfigChanged read FOnConfigChanged write FOnConfigChanged;
  end;

// und

procedure TForm1.ConfigButtonClick(Sender: TObject);
begin
  form2 := TForm2.Create;
  Form2.Init;
  Form2.OnConfigChanged := HandleConfigChanged;
  Form2.ShowModal;
end;

// und

procedure TForm2:Checkbox1Click(Sender: TObject);
begin
  FormToConfigRecord;
  if Assigned(FOnConfigChanged)
    FOnConfigChanged(Self, FConfigRecord);
end;

Ich hoffe, das ist einigermaßen verständlich.

[NoGAD]

Hallo Thomas,

danke für Dein Codebeispiel.


FormToConfigRecord ist sicherlich überflüssig?

Und muss ich dann für jede CheckBox bzw. Element, welches den/das Setup-Record verändert,

Code:

 if Assigned(FOnConfigChanged)
    FOnConfigChanged(Self, FConfigRecord);

aufrufen?


Edit: FormToConfigRecord ist wohl eine function, in der alle Eigenschaften der Setup-Form in das Record gespeichert werden.
Edit2: Funktioniert perfekt!

LG Mathias

[venice2]

SendMessage wäre wohl der einfachste weg.. aber es funktioniert ja jetzt.

Nur als Vorschlag.
Benenne deine Checkboxen so das du sie auch in einem Jahr noch identifizieren kannst wofür sie stehen.

bsp:
checkbox1 zu cbTogglePanel
also gebe ihnen Namen die zur jeweiligen ausführbaren Funktion stehen.

[Uwe Raabe]

Hier mal ein schnell zusammengeklicktes Beispiel mit System.Messaging. Der Einfachheit halber wird eine globale Instanz des Setup-Records verwendet.

Wenn man den Setup-Datensatz mit den Messages versenden und manipulieren will, sollte man eine besser Klasse anstatt eines Records verwenden.

[Andreas13]

Hallo Uwe,
ab welcher Delphi-Version gibt es

Delphi-Quellcode:

System.Messaging.pas

? XE5 kennt es leider noch nicht. Gibt es eine Abhilfe oder Ersatz dafür?
Danke & Gruß, Andreas

[Uwe Raabe]

Zitat:

Zitat von Andreas13 (Beitrag 1488372)

ab welcher Delphi-Version gibt es

Delphi-Quellcode:

System.Messaging.pas

? XE5 kennt es leider noch nicht.

XE6

Zitat:

Zitat von Andreas13 (Beitrag 1488372)

Gibt es eine Abhilfe oder Ersatz dafür?

Bestimmt. Im Zweifelsfall selber schreiben.

[Andreas13]

Danke Uwe, leider kann ich Dein Demo-Programm in absehbarer Zeit nich ausprobieren.
Gruß, Andreas

[himitsu]

Die CommunityEdition kannst parallel zum XE5 installieren. (oder in eine VM rein)
Dann kannst auch mal Aktuelleres ausprobieren :wink:

[Andreas13]

Danke Himitsu für den wertvollen Tipp!
Gruß, Andreas

[NoGAD]

Zitat:

Zitat von venice2 (Beitrag 1488367)

Benenne deine Checkboxen so das du sie auch in einem Jahr noch identifizieren kannst wofür sie stehen.

Mach ich doch immer :-)
Für Fragen hier im Forum habe ich festgestellt, ist es einfacher, diese so allgemein, wie nur möglich zu halten.

Zitat:

Zitat von Uwe Raabe (Beitrag 1488370)

Hier mal ein schnell zusammengeklicktes Beispiel mit System.Messaging.

Dankeschön!

Meine Frage ist hiermit beantwortet. :-)

LG Mathias

[venice2]

Zitat:

Mach ich doch immer

Nun ja ich dachte nur weil du geschrieben hast

Zitat:

je nach Checkbox1.checked

Zitat:

Für Fragen hier im Forum habe ich festgestellt, ist es einfacher, diese so allgemein, wie nur möglich zu halten.

Ok! Deshalb Checkbox1.checked :)

[KodeZwerg]

Ich habe es mir mal durchgelesen, Uwe sein Archiv noch nicht geladen/angeschaut, aber messaging passt zumindest vom Begriff schon mal sehr zu Deiner Erwartung.
Ich selbst mache es etwas anders da es bei mir eher passiv passiert.
Meine message ist lediglich das CloseModal in leicht modifizierter form (mein "isChanged" entspricht eine der möglichen modal returns), in "unitSetup" nutz ich zwei fast identische Dinge,
das normale Form/Class gedöns fürs visuelle, das ganze nochmal als record (gespeichert/geladen wird dann das record als binär datei), funktioniert zumindest super für "normale" Datentypen.
Je nach modal result, entweder das record laden und im form die settings übernehmen oder halt nichts machen. (Ich habe nicht so den bedarf das ein Setting instant ausgeführt werden muss)
Ne, das war falsch formuliert, je nach modal result das "unitSetup" record im Hauptformular anwenden oder nicht.

[NoGAD]

Hallo KodeZwerg,

instant ist schon gut, weil auch viele Visuelle Dinge eingestellt werden können, die müssen im Hauptfenster dann sichtbar sein :-)

Alles gut, der Vorschlag von Thomas war perfekt für meine Bedürfnisse.

Uwe seinen Code verstehe ich leider nicht so richtig, auch wenn es sehr wenige Zeilen für die Umsetzung sind.
Was mir jedoch als Unterschied aufgefallen ist (wie ich es verstanden habe), dass ich bei Thomas's Beispiel alle Werte auf einmal setzen kann (für TCheckbox z.B., oder für TColorBox). Im Fall von Uwe müsste ich für jeden Schalter oder Control wieder extra Code schreiben.

LG Mathias :-)

[KodeZwerg]

Uwe arbeitet per mittelsman unit, thomas alles in einem abwasch bei veränderung, emil total direkt und ich bin außen vor da was anderes erwartet/verlangt wird :)

Von der art "was ist am einfachsten" bin ich da total auf emil und thomas seite, wobei emil tatsächlich nur auf eine sache reagiert und bei thomas halt alle settings durchrattern.

Von der art "was ist am saubersten" tendiere ich eher zu Uwe hin da dort alles schön von einander getrennt behandelt wird (sofern ich es richtig interpretiere).

Am ende, wie so oft, entscheidet der user was für ihn am einfachsten zu pflegen ist.