Form und Frame kommunikation

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