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

[himitsu]

Zitat:

Oder ist das schlechter Programmierstil?

Ja.

Bau das Event in den Frame ein und da kann sich Form1 dann dranhängen.
* entweder ein Event in den Frame, im Frame einen Eventhandler an den Button und da drin das Event aufrufen
* oder ein EventProperty in den Frame und im Getter/Setter den Eventhandler an das Property des Buttons weiterreichen

[Delbor]

Hi zusammen

Ich verzichte hier darauf, irggendeinen Thread direkt zu beantworten; anstelle dessen hier meine Umsetzung (die letztlich die Frage beantwortet):

Ich habe zwei (Basis-)Frames - ich weiss, dass der Ausdruck Basisframe offiziell nicht existiert, benutze ihn aber trotzdem, um den Unterschied zu den Frameinstanzen zu verdeutlichen.

• Einen ToolBoxFrme, der eine Werkzeugleiste mit Buttons zum Ausschneiden, Kopieren, Einfügen etc. enthält, und
• Einen SyneditFrame, der eine entsprechende Komponente birgt.

Das OnClickEvent eines Buttons im ToolBoxFrame feuert ein Event - testweise hab ich einen eigenen Typ für dieses Event definiert, damit ich einen Parameter mit abfeuern kann. Ein Event TNotifyEvent würde allerdings genügen.
Der SynEditFrame definiert den Eventhandler, der die entsprechende Aufgabe im Synedit ausführt, beispielsweise selektierten Text in die Zwischenabage kopiert oder ausschneidet.
Umgekehrt wird bei MouseUp eine Event gefeuert, wenn SelText Text enthält ist - der Eventhandler im ToolbuttonFrame stellt Enabled der entsprechenden Buttons.Im Hauptformular habe ich lediglich die Zuordnung der Events an ihre Eventhandler:

Delphi-Quellcode:

procedure TDelborWebServerMain.FormCreate(Sender: TObject);
  var Event: String;
begin
  SideBarWebFrame1.FileTreeFrame1.OnFileFound := DoOnFileFound;
  ToolBoxWebFrame1.OnPCtrlActivePage :=  DoOnPCtrlActivePage;
  SideBarWebFrame1.FileTreeFrame1.OnPathlist := DoOnPathList;

  ManageEvents;
end;

procedure TDelborWebServerMain.ManageEvents;
begin
  ToolBoxWebFrame1.OnCutOnClipBoard :=  SynEditFrame1.DoCutOnClipBoard;
  ToolBoxWebFrame1.OnCopyOnClipBoard :=  SynEditFrame1.DoCopyOnClipBoard;
  ToolBoxWebFrame1.OnPasteFromClipBoard := SynEditFrame1.DoPasteFromClipBoard;
  ToolBoxWebFrame1.OnOnSafe := SynEditFrame1.DoOnSafeSynedit;
  ToolBoxWebFrame1.OnOnOpen := SynEditFrame1.DoOnOpenSynedit;
  ToolBoxWebFrame1.OnOnNew := SynEditFrame1.DoOnNewSynedit;
  SynEditFrame1.OnSelectText := ToolBoxWebFrame1.DoOnSelectText;
end;

Damit tauschen die beiden Basisframes direkt untereinander Events aus. Um einen Basisframe per Code zu erreichen, muss dessen Instanz im Formular angesprochen werden.
Der Sinn des ganzen? Mir ging es nicht darum, den 'Umweg über das Formular' nicht gehen zu müssen, sondern darum, die Frames möglichst ohne Anpassung des Codes wiederverwenden zu können.

Gruss
Delbor