MDI Anwendung - Daten an das Herkunftsfenster schicken

[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