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

[dummzeuch]

Zitat von NoGAD:

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 System.Messaging.pas ? XE5 kennt es leider noch nicht. Gibt es eine Abhilfe oder Ersatz dafür?
Danke & Gruß, Andreas

[Uwe Raabe]

Zitat von Andreas13:

ab welcher Delphi-Version gibt es System.Messaging.pas ? XE5 kennt es leider noch nicht.

XE6

Zitat von Andreas13:

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

[NoGAD]

Zitat von venice2:

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 von Uwe Raabe:

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.