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;