Form und Frame kommunikation

[youuu]

Naja, also.

Ich habe ein Programm, welches Kundendaten verwaltet.
Wenn ich einen Datensatz aufrufe wird das "Second Form" erstellt. Wenn ich einen 2. Datensatz öffne wird wieder ein "Second Form" erstellt.

Ich kann also denen keine 2 unterschiedlichen Namen verpassen, da es ein und die selbe procedure ist.
Das Frame ist in einer Pagecontrol eingebettet mit wiederum einem Virtualstringview, in dem Daten ausgegeben werden, die auf der "Second Form" stehen (Kundennummer wird sich vom Second Form geholt um Daten in VST einzubetten.)

Ich wüsste jetzt also nicht wie ich das Frame als Edit verwenden soll.
Gibts da Tipps für?

Bei einer Form zu Form, übergebe ich immer einefach eine Variable an die 2. Form, die im Privat Bereich deklariert habe.
Aber das geht in einem Frame nicht oder, da ich das Frame ja nicht erst seperat erstelle.

[Medium]

Delphi-Quellcode:

procedure fraMyFrame.Button1Click(Sender: TObject);
begin
  (Parent as TSecondForm).edSomeEdit.Text := 'foo';
end;

Greift bei mir wunderbar immer nur auf das "TSecondForm" zu, auf dem das Frame auch wirklich liegt.

[youuu]

Oh super Danke, werde ich nachher gleich ausprobieren

[Sir Rufo]

Zitat von Medium:

Delphi-Quellcode:

procedure fraMyFrame.Button1Click(Sender: TObject);
begin
  (Parent as TSecondForm).edSomeEdit.Text := 'foo';
end;

Greift bei mir wunderbar immer nur auf das "TSecondForm" zu, auf dem das Frame auch wirklich liegt.

Damit darf der Frame aber ausschließlich auf einem TSecondForm Formular liegen, sonst knallt es.

Eleganter ist es, dem Frame entweder passende Events oder eben von der Form aus den Zugriff auf die benötigten Teile zuzuweisen.

Delphi-Quellcode:

fraMyFrame = class( TFrame )
  property FormEdit : TEdit;
end;

procedure fraMyFrame.Button1Click(Sender: TObject);
begin
  if Assigned( FormEdit ) then
    FormEdit.Text := 'foo';
end;

[himitsu]

Zitat von Sir Rufo:

Damit darf der Frame aber ausschließlich auf einem TSecondForm Formular liegen, sonst knallt es.

Auch nicht in einem Panel, Tabsheet oder Dregleichen, innerhalb soeiner Form.

Man könnte zwar den Owner verwenden, aber der kann ja auch sonstwo liegen.

[Medium]

@TE und Sir Rufo und himi: Siehe #4

[youuu]

So, es hat geklappt danke sehr.

(Owner as TSecondForm).edSomeEdit.Text := 'foo'; Parent ging leider nicht, das es auf einem Panel liegt.

[himitsu]

Dennoch würde ich nochmals auf #7, #8 und Dergleichen verweisen.