UnterForm mit Daten aus Hauptform versorgen

[Bjoerk]

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;