Aus Frame heraus auf übergeordnete (haupt)Form zugreifen

[TRBB]

Wunderschönen guten Abend,

gibt es eine Möglichkeit aus einem Frame heraus auf die übergeordnete Form zuzugreifen?

Wie zum Beispiel in Javascript über:
parent.

Vielen Dank im Voraus.
TRBB


EDIT (Lösung):
ValidParentForm(self).caption := 'Übergeordnete Form wurde neu beschriftet';

[TonyR]

Wilkommen in der DP!!!

Was GENAU möchtest du tun bzw. erreichen?

[mkinzler]

Interiere über .Parent bis Klasse = TForm ist.

[TRBB]

Zitat von TonyR:

Wilkommen in der DP!!!

Was GENAU möchtest du tun bzw. erreichen?

Vielen Dank,
Ich habe TForm1. Darin befindet sich ein Frame.
Aus diesem Frame heraus möchte ich auf TForm1 zugreifen.

Zitat von mkinzler:

Interiere über .Parent bis Klasse = TForm ist.

Tut mir leid wenn ich etwas beriffsstuzig bin.
Interieren habe ich weder bei Google noch bei Wikipedia gefunden und ich habs noch nie gehört^^
Kannst du mir vielleicht einen kurzen Beispiel Code geben?

Schonmal vielen Dank für die schnelle Antworten.

[mkinzler]

Delphi-Quellcode:

var
    Parent: TComponent;
...
    Parent := Frame.Parent;
    while not (Parent is TForm) do
        Parent := Parent.Parent;

[TRBB]

Vielen Dank schon mal.
Leider funktioniert es nicht ganz


Der Compiler gibt einige Fehler aus:

Delphi-Quellcode:

procedure TFrameForm.Button1Click(Sender: TObject);
var parentForm: TComponent;
begin
  parentForm := FrameForm.Parent;
  while not (parentForm is TMainForm) do
    parentForm := parentForm.Parent; //Fehler: Undeclared identifier: 'Parent'
  parentForm.caption := 'test erfolgreich'; //Fehler: Undeclared identifier: 'Caption'
end;

MainForm: Hauptform die beim PRGM-Start angeziegt wird und die Frames enthält
FrameForm: eines der frames (eigebettes Frame/iframe in HTML - weiss nicht obs hier verschiedene gibt ich schreibs lieber mal dazu)

Schöne Grüße
TRBB

[mkinzler]

Delphi-Quellcode:

procedure TFrameForm.Button1Click(Sender: TObject);
var parentForm: TControl;
begin
  parentForm := FrameForm.Parent;
  while not (parentForm is TForm) do
    parentForm := parentForm.Parent;  
  (parentForm as TForm).Caption := 'test erfolgreich';
end;

[Edit: is TMainForm]

[Deep-Sea]

Wie wäre es mit der Funktion "ValidParentForm" oder "GetParentForm"?

[TRBB]

Delphi-Quellcode:

var
  parentForm: TComponent;
begin
  parentForm := FrameForm.Parent;
  while not (parentForm is TMainForm) do
    parentForm := (parentForm as TForm).Parent;
  (parentForm as TForm).caption := 'test erfolgreich';

und auch
ValidParentForm(FrameForm).caption := 'test erfolgreich'; Funktionieren beide nicht.
Das Problem ist das VerleihForm durch Delphi beim erstellen eines Frames nicht automatisch erstellt wird.
Bei normalen Forms findet man oben im interface Teil

Delphi-Quellcode:

var
  MeinForm: TMeinForm;

Bei Frames aber nicht.
Ich habe nun einfach beim Frame

Delphi-Quellcode:

var
  FrameForm: TFrameForm;

eingefügt aber das scheint nicht ganz richtig zu sein.

Beide Versionen produzieren Fehler.