Frame To Frame Zugriff?

[Headbucket]

Ist das bereits zu viel für die Hauptunit?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Frame2.Button1.OnClick := Frame3.DoColorPanel;
end;

Delphi-Quellcode:

procedure TFrame3.DoColorPanel(Sender: TObject);
begin
  //if Sender is TButton then
  Panel1.Color := clRed;
end;

Oder ist das schlechter Programmierstil?

So funktioniert es auf jeden Fall.

Grüße
Headbucket