FMX Frame zur Laufzeit erstellen und Button darauf anklicken

[xbkbk]

Moin, ich habe mal wieder ein Problem, dessen Antwort vermutlich auf der Hand liegt, aber ich komme nicht drauf:
Ich habe zur Laufzeit einen Frame erstellt, möchte nun aber zur Laufzeit einen Button darauf drücken, finde aber keinen (zumindest nicht so wie ich es bisher versucht habe - was basierend auf dieser Erkenntnis wohl auch die falsche Vorgehensweise zu sein scheint).
Was ich bisher habe ist das hier:

Code:

var
  MyFrame: TFrame;
begin
  MyFrame := TBeliebigerFrame.Create(Self);
  MyFrame.Parent := Self;
  MyFrame.Align := TAlignLayout.Client;
  // MyFrame.HIERSOLLTEMEINBUTTONSEIN_ISTERABERNICHT.Onlick(self);

Damit wird zwar mein Frame angezeigt, aber ich kann keinen Button klicken.
Dann kam ich auf die Idee, eine Instanz des Frames direkt als Variable zu erstellen..
(wie folgt:)

Code:

var
  // MyFrame: TFrame;
  myDings: TBeliebigerFrame;
begin
  {
    MyFrame := TBeliebigerFrame.Create(Self);
    MyFrame.Parent := Self;
    MyFrame.Align := TAlignLayout.Client;
  }

  myDings.Create(self);
  myDings.Parent := self;
  myDings.Align := TAlignLayout.Client;
  myDings.Button1.OnClick(self);

wenn ich das so ausführe bekomme ich allerdings eine Zugriffsverletzung.

Nun ist meine Frage, wie ich zur Laufzeit einen Frame erstellen und dann einen Button darauf klicken kann.

Vielen lieben Dank schonmal im voraus :)

[hoika]

Hallo,
schreibe als einzigen Befehl in Deine ButtonOnClick den Aufruf einer eigenen Methode.
Und diese Methode rufst Du in Deinem Oberen Beispiel auf.

Wobei mir die Vorgehensweise merkwürdig vorkommt.
Ich würde Oberfläche und Code besser trennen.
Dann bräuchtest Du vielleicht gar keinen Frame.

[xbkbk]

Zitat:

Zitat von hoika (Beitrag 1500193)

Hallo,
schreibe als einzigen Befehl in Deine ButtonOnClick den Aufruf einer eigenen Methode.
Und diese Methode rufst Du in Deinem Oberen Beispiel auf.

Okay ja. Für einen Buttonklick gebe ich dir Recht. Da sollte man die Sache in eine externe Methode auslagern und die dann aufrufen, wobei es mir im generellen tatsächlich eher darum geht, wie man die Komponenten auf einem Frame zur Laufzeit anprechen kann, um beispielsweise den Text eines Memos zu ändern oder die Font Propertys eines Labels zu modifizieren etc. Es war also nicht speziell für den Anwendungsfall eines OnClicks für Buttons, sondern eher generell gemeint. Trotzdem danke für die Antwort. Im Falle eines Buttonklicks kann man tatsächlich ausgelagerte Methoden nutzen.

Zitat:

Wobei mir die Vorgehensweise merkwürdig vorkommt.
Ich würde Oberfläche und Code besser trennen.
Dann bräuchtest Du vielleicht gar keinen Frame.

Oberfläche und Code sind an sich getrennt, aber GUI Komponenten wie zum Beispiel den Text eines Edits würde ich gerne zur Laufzeit ändern können, weshalb ich dann auf einzelne Komponenten/Controls/Dinge innerhalb des Frames zugreifen möchte.

Ja auch da ginge eine ausgelagerte Funktion, die einfach das edit.text per Parameter ändern kann, aber ich wollte halt wissen, ob es auch geht, dass man direkt auf die Komponenten des Frames zugreifen kann (oder warum man das vielleicht auch lassen sollte)

[haentschman]

Moin...:P

Zitat:

dass man direkt auf die Komponenten des Frames zugreifen

Delphi-Quellcode:

MyFrame := TBeliebigerFrame.Create(Self);

...ich verstehe das so:
Du mußt dir deine Form "Variable" (MyFrame) hinterlegen.
Muster:

Delphi-Quellcode:

// als privates Feld
private
  FMyFrame: TBeliebigerFrame;
// in Liste über den Index abrufbar
FFrameList: TObjectList<MyFrame>; // mit Freigabe, ohne Freigabe TList<MyFrame> mit Create(Self);
...
FFrameList.Add(MyFrame);
// oder über den Namen
FFrameDict: TObjectDictionary<MyFrame>; // mit Freigabe, ohne Freigabe TDictionary<MyFrame> mit Create(Self);
...
FFrameDict.Add('MyFrame', MyFrame);

...und so weiter. :wink:

[TiGü]

Zitat:

Zitat von xbkbk (Beitrag 1500192)

Moin, ich habe mal wieder ein Problem, dessen Antwort vermutlich auf der Hand liegt, aber ich komme nicht drauf:

Code:

var
  MyFrame: TFrame;
begin
  MyFrame := TBeliebigerFrame.Create(Self);
  MyFrame.Parent := Self;
  MyFrame.Align := TAlignLayout.Client;
  // MyFrame.HIERSOLLTEMEINBUTTONSEIN_ISTERABERNICHT.Onlick(self);

Nun ist meine Frage, wie ich zur Laufzeit einen Frame erstellen und dann einen Button darauf klicken kann.

Du musst deinen Compiler mitteilen, dass du eine spezielle Frameklasse mit deinen Button meinst.
Du kannst hart casten oder in eine eigene Variable schreiben.

Delphi-Quellcode:

var
  MyFrame: TFrame;
begin
  MyFrame := TBeliebigerFrame.Create(Self);
  MyFrame.Parent := Self;
  MyFrame.Align := TAlignLayout.Client;
  if MyFrame is TBeliebigerFrame then // optionale Prüfung, wenn Erzeugung und folgender Code an getrennten Stellen liegen:
  begin
    // Beispiel mit Hard Cast
    TBeliebigerFrame(MyFrame).DeinButtonIstErreichbar.Onlick(self);
  end;

Warum ist das so?
Wenn du eine TSäugetier-Klasse hast und eine davon abgeleitete THund-Klasse, dann weiß die TSäugetier-Klasse noch nichts von den Methoden HebeBein() oder MachWauWau().

[xbkbk]

Vielen Dank für die schnellen und guten Antworten. Ich setze mich heute Abend/Nacht Mal dran und werde sie ausprobieren :)

[himitsu]

Ja, man kann den Construktor wie eine Funktion aufrufen, aber wenn, dann muß man es auch richtig machen und die Instanz vorher natürlich erst erstellen.

Delphi-Quellcode:

Variable := TComponent(TKlasse.NewInstance);
Variable.Create(Besitzer);

Die VCL/FMX machen es z.B. so, damit Selbstreferenzen und verschachtelte Forms/Datenmoduile/Frames sich bereits während des Erstellens in den kranken globalen Variablen finden können.

Richtig und Einfacher ist immer

Delphi-Quellcode:

Variable := TKlasse.Create(Besitzer);

Gut, es ist zwar blöd unpraktisch, dass bei

Delphi-Quellcode:

ObjektVariable.Create();

keine Compilerwarnung kommt, dass man es nicht so machen "sollte",
aber das ist egal, da niemals jemand die Compilerwarnungen ließt, denn sonst wäre dir

Zitat:

[DCC Warnung] Unit3.pas(30): W1036 Variable 'myDings' ist möglicherweise nicht initialisiert worden

bestimmt aufgefallen. :wall:

[himitsu]

Bist du dir immer sicher, dass OnClick auch etwas zugewiesen ist?
Wenn nicht, dann sollte man vorher auch ein

Delphi-Quellcode:

if Assigned(DerButton.OnClick) then

machen.

Und falls in dem OnClick auch noch der Sender geprüft/verwendet wird, dann muß sollte man auch das Richtige übergeben.

Delphi-Quellcode:

DerButton.OnClick(DerButton);

Es gibt ja Buttons, wo nur der ModalResult gesetzt wird, um z.B. das Fenster zu schließen.

Lösung: Ich will klicken, also "klicke" ich. (und rufe nicht "irgendeine" Ereignismethode auf)

Delphi-Quellcode:

DerButton.Click;

[xbkbk]

Zitat:

Delphi-Quellcode:

var
  MyFrame: TFrame;
begin
  MyFrame := TBeliebigerFrame.Create(Self);
  MyFrame.Parent := Self;
  MyFrame.Align := TAlignLayout.Client;
  if MyFrame is TBeliebigerFrame then // optionale Prüfung, wenn Erzeugung und folgender Code an getrennten Stellen liegen:
  begin
    // Beispiel mit Hard Cast
    TBeliebigerFrame(MyFrame).DeinButtonIstErreichbar.Onlick(self);
  end;

Hab das jetzt so umgesetzt und es hat wunderbar funktioniert. Vielen Dank :)

[xbkbk]

Zitat:

Zitat von himitsu (Beitrag 1500210)

Bist du dir immer sicher, dass OnClick auch etwas zugewiesen ist?

Ja, der Button, den ich aufrufen will hat definitiv immer ein OnClick.
Aber danke für den Hinweis. Falls es mal nicht ganz sicher ist werde ich auf jeden Fall eine

Code:

Assigned

Prüfung machen.