Form und Frame kommunikation

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