Wenn die Beeinflussung wechselseitig ist, kann man die Daten auch koppeln. Dazu mussen Form1.Data und Form2.Data aber auf den selben Inhalt zeigen. Das geht zum Beispiel gut bei Klassen. Und Form2 aus der Liste der automatisch erzeugten Formulare herausnehmen (Projektoptionen).
Delphi-Quellcode:
TForm2 = class(TForm)
private
FData: TData;
public
constructor Create(AOwner: TComponent; Value: TData); reintroduce; overload;
end;
constructor TForm2.Create(AOwner: TComponent; Value: TData);
begin
inherited Create(AOwner);
FData := Value;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FData := TData.Create;
Form2 := TForm2.Create(Self, FData);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FData.Free;
end;