Frames: Wie ursprüngliche Events am besten aufrufen?

[Der schöne Günther]

Folgendes Beispiel:

1) Ein Frame 'meinFrame' vom Typ 'TMeinFrame'

• mit Button 'meinButton'
• und OnClick-Event 'FRAME__meinButtonClick'

und

2) ein Formular 'MainFormular' vom Typ 'TMainFormular'
auf welcher eben der Frame 'meinFrame' vom Typ 'TMeinFrame' sitzt.


Auf dem Formular-Designer von TMainFormular hindert mich niemand, selbst ein OnClick-Ereignis für den Button 'meinButton' auf dem Frame festzulegen - Ich sehe noch nicht einmal, dass der schon ein OnClick-Ereignis hat.

Hiermit ersetze ich jetzt das OnClick-Ereignis des Buttons. In der .pas des Frames lautet es:

Delphi-Quellcode:

procedure TMeinFrame.FRAME__meinButtonClick(Sender: TObject);
begin
   ShowMessage('Grüße aus dem Frame');
end;

Auf meinem Formular habe ich gesetzt

Delphi-Quellcode:

procedure TMainFormular.FORM__meinFrameMeinButtonClick(Sender: TObject);
begin
   ShowMessage('Grüße vom Formular');
end;

Status Quo: Die Grüße vom Frame sind mir nun verloren gegangen. Wie gehe ich die Sache am besten an? Vielleicht so?

Delphi-Quellcode:

procedure TMainFormular.FORM__meinFrameMeinButtonClick(Sender: TObject);
begin
   //meinFrame.meinButton.OnClick(Sender); // So nicht, ICH bin doch schon sein OnClick!
   meinFrame.FRAME__meinButtonClick(Sender);
   ShowMessage('Grüße vom Formular');
end;

Spaßeshalber hier noch einmal wie die DFM von Formular und Frame aussehen:

Code:

== Frame ==
object meinFrame: TMeinFrame
   [...]
   object meinButton: TButton
      [...]
      OnClick = FRAME__meinButtonClick
   end
end

== Form ==
object MainFormular: TMainFormular
   [...]
   inline meinFrame: TMeinFrame
      [...]
      inherited meinButton: TButtin
         Left = ...
         Top = ... // Wozu !?!
         OnClick = FORM__meinFrameMeinButtonClick
      end
   end
end

Gibt es noch eine andere Möglichkeit? Momemtan gefällt mir das nicht, denn ich muss in meinem Formular nun den genauen Namen der normalerweise verwendeten OnClick-Methode des Buttons kennen. Das ist doch hässlich.

[Uwe Raabe]

Das Verhalten deiner IDE ist so nicht korrekt und ich kann es auch nicht nachvollziehen. Bei einem Doppelclick auf den Frame-Button im Form wird folgender Event-Handler generiert (Frame2401 ist der Instanzname des Frames):

Delphi-Quellcode:

procedure TForm239.Frame2401Button1Click(Sender: TObject);
begin
  Frame2401.Button1Click(Sender);

end;

[Der schöne Günther]

Das Stimmt. Mein Fehler: Ich habe wohl zuerst in der Form den "zusätzlichen" onClick-Handler geschrieben und danach erst im Frame das "normale" Verhalten. So kann das natürlich nicht gehen

Es bleibt, dass ich es etwas unschön finde, hier den absoluten Namen des Eventhandlers aus dem Frame ("Button1Click") stehen zu haben. So eine Art Pseudo-inherited wäre jetzt das Sahnehäubchen gewesen.

[Furtbichler]

Nein, denn wie soll das funktionieren, wenn Du das Frame mehrmals auf der Form hast?

[Der schöne Günther]

Doch klar

Jeder Frame hat erstmal sein Standardverhalten ("Grüße aus dem Frame") und obendrauf kann ich auf dem Formular das die einbindet noch etwas dazupacken ("Diese Grüße wurden Ihnen präsentiert vom oberen Frame") oder auch nicht.

Jetzt kann man sich natürlich streiten, ob man das überhaupt tun sollte. Und ob man nicht Frames eh als Komponente einbinden sollte und extra noch so einstellen sollte, dass man an die Komponenten im Frame (und deren Events) von außen nicht mehr drankommt. Da steige ich gerne ein, ich weiß nicht, ob das noch zum Thema passt?

Ich wollte die Möglichkeit nur haben, gehen tut es.

[Furtbichler]

Manchmal fände ich es auch schöner, wenn Frames sealed wären bzw. wenn man daraus einfach eine Komponente bauen könnte. Betonung auf 'einfach'.

Aber Frames sind so wunderbar flexibel, erweiterbar usw. Das ist schon ok so. Man muss sich nur drauf einschießen.

[Der schöne Günther]

Ich habe Frames gestern Abend praktisch zufällig entdeckt und bin seitdem ziemlich aus dem Häuschen. So etwas habe ich schon die ganze Zeit vermisst

Komponenten bauen geht ja wirklich einfach: Einfach Rechtsklick und "Der Palette hinzufügen". Aber ja, eigene Eventhandler/Properties und Änderungen der Innereien zu verhindern ist, so wie es für mich aussieht, wirklich nicht ganz trivial, aber immerhin möglich

[Furtbichler]

Zitat von Der schöne Günther:

Komponenten bauen geht ja wirklich einfach:

Aua. Nie bemerkt.