UnterForm mit Daten aus Hauptform versorgen

[DeddyH]

Zitat:

In der UnterForm wird ein Event ausgelöst welches in der HauptForm eine Procedure aufruft.

Ich nehme an, dass diese Prozedur hartkodiert und somit direkt aufgerufen wurde statt über einen Eventhandler.

[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;

[DeddyH]

Damit hast Du aber ggf. über längere Zeit mehrere Referenzen auf Data, das erzeugt bei mir immer so ein mulmiges Gefühl.

[Bjoerk]

Weiß ich doch daß du da immer ein mulmiges Gefühl bekommst. :mrgreen:

[Hannes Kuhn]

Hallo,

ich hattes zuvor so ähnlich wie in #8 gemacht.

Bis dahin wußte ich aber nicht, dass ich über "var Value: Integer", Daten aus der HauptForm
an die UnterForm "zurücksenden" kann.

Das gefällt mir.

Gruß
Hannes

[Luckie]

Mein Link hat sich niemand angeguckt oder?

[DeddyH]

Doch, aber da ist der Fall ja anders gelagert, da es um eine Property geht und nicht um ein Event.