MDIAPP und dem Vererben

[sx2008]

Die Idee mit dem Handle ist ein Irrweg.
Sämtliche MDI-Formulare können über das Hauptformular ausgelesen werden.

Delphi-Quellcode:

procedure Irgendwas;
var
  hauptform : TForm;
  aktMDI, tmp : TObjekt;  // übrigens, TObjekt ist ein sehr ungeschickter Name für ein MDI-Cild-Formular !!!
  i : Integer;
  s : string;
begin
  hauptform := Application.MainForm;  // MDI Vater holen
  aktMDI := hauptform.ActiveMDIChild as TObjekt;   // das aktuelle MDI Kind Formular holen
  s := aktMDI.Edit1.Text; // vor aktuellem MDI einen Wert aus einem Editfeld auslesen

  // Schleife über alle MDI Kind Formulare
  for i := 0 to hauptform.MDIChildCount-1 do
  begin
    tmp := hauptform.MDIChildren[i] as TObjekt;
    if tmp = aktMDI then continue;  // aktuelle MDI soll nicht verändert werden
    tmp.Edit1.Text := '#' + s + '#';  // #-Zeichen sollen nur zeigen, dass wirklich was kopiert wurde
  end;