Parameterübergabe Hauptprogramm an sein MDI

[shmia]

1.) die MDI-Formulare präsentieren ihre Daten über Properties nach aussen:

Delphi-Quellcode:

TMDIform = Class(TForm)
   public
      property Bemerkungen:TStrings read GetBemerkungen write SetBemerkungen;
end;
function TMDIform.GetBemerkungen : TStrings;
begin
   result := Memo4.Lines;
end;
procedure TMDIform.SetBemerkungen(value : TString);
begin
   Memo4.lines := value;
end;

2.) Der direkte Zugriff auf Controls der MDI Formulare ist verboten !!!(obwohl es leicht möglich wäre)
3.) so wird dann kopiert:

Delphi-Quellcode:

var
   source, dest : TMDIform;
begin
   source := ....;
   dest   := ActiveMDIChild as TMDIform;

   if source=dest then
      exit;
   dest.Bemerkungen := source.Bemerkungen;
end;