MDI Anwendung - Daten an das Herkunftsfenster schicken

[Moosi]

Hallo DP,

Ich habe ein MDI Anwendung gebaut in der neben dem MDIMainForm noch 2 MDIChilds existieren.

Child 1 enthält Masken zur eingabe von Adressen,
Child 2 ist ein PLZ Suchfenster


Wenn ich jetzt auf Child 1 einen Button (PLZ Suchen) klicke soll das Child 2 aufgerufen werden. Das mache ich folgendermaßen:

Delphi-Quellcode:

Application.CreateForm(TFmPLZSuchen, FmPLZSuchen);

Wie realisiere ich das wenn Child 1 mehrfach offen ist und jeweils von dort aus das PLZ Suchfenster(Child2)
aufgerufen wird, die richtige ausgewählte PLZ zum ursprünglichen Fenster zurückgegeben wird?

Ich hoffe Ihr wisst was ich meine :?


Danke im Voraus für die Hilfe...

viele Grüße Moo

[alzaimar]

Na, Du sagst dem PLZ-Fenster einfach, wohin es das Ergebnis 'schicken' soll.
Dein TPLZSuchFormular hat ein Event 'OnCityFound'.
Bevor Du das PLZ-Formular anzeigst, weist Du dem Event eine Methode im TAdressFormular zu.

[Moosi]

Wow, danke für die schnelle Antwort.

zugegeben, was Du schreibst ist für mich im Moment noch eine Nummer zu groß.
Kannst Du mir ein wenig weiter auf die Sprünge helfen?

Oder gibt´s einen Link wo ich mir was zu dem Thema anlesen kann?


danke schonmal

Moo

[marabu]

Hallo Andy,

du könntest deiner TFmPlzSuchen im Abschnitt public folgendes beibringen:

Delphi-Quellcode:

interface

type
  TFmPlzSuchen = class(TForm)
  private
    FPlz: string;
  public
    function Execute(ortsName: string): boolean;
    property Plz: string read FPlz;
    ...
  end;

implementation

function TFmPlzSuchen.Execute(ortsName: string): boolean;
begin
  Result := ErgebnisDeinerSucheNach(ortsName);
end;

Wenn du jetzt in der Methode Execute eine erfolgreiche Suche signalisierst, wobei du intern die gefundene Plz in FPlz festhältst, dann kannst du in deiner AdressForm so vorgehen:

Delphi-Quellcode:

var
  sOrt, sPlz: string;
begin
  ...
  with FmPlzSuchen do
    if Execute(sOrt) then
      sPlz := Plz;
  ...
end;

Grüße vom marabu

[Moosi]

Jo, vielen Dank

klappt perfekt :thumb:


viele Grüße
Moo