Aus Frame heraus auf übergeordnete (haupt)Form zugreifen

[mkinzler]

Was für Fehler?

[Deep-Sea]

Zitat:

Zitat von TRBB

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.

Natürlich klappt das nicht. FrameForm ist einfach nur eine Variable, die keinen Wert hat, wenn du ihr keinen zuweißt.
Verwende, wenn du von einer Instanz eine Referenz brauchst, innerhalb der Instanz "Self" ...

[mkinzler]

Außerdem solltest du den Code, den man hier postet nicht eigenmächtig abändern:

Delphi-Quellcode:

is TMainform

ist was anderes wie

Delphi-Quellcode:

is TForm

( hab ich leider vorhin übersehen)
parentForm hatte ich zu TControl geändert

Zitat:

parentForm := (parentForm as TForm).Parent;

wird fehlschlagen wenn es sich nicht um eine Form handelt (was eigentlich immer der Fall ist, weil der Code ja nur ausgeführt wird, wenn das der Fall ist!)

[TRBB]

Tausend Dank an euch beide!!!

Beide Versionen Funktionieren nun!

Delphi-Quellcode:

  var
  parentForm: TControl;
begin
  parentForm := self.Parent;
  while not (parentForm is TForm) do
    parentForm := parentForm.Parent;
  (parentForm as TForm).caption := 'test erfolgreich';
end;

und

Delphi-Quellcode:

ValidParentForm(self).caption := 'test erfolgreich';

Also nochmal Danke für eure Hilfsbereitschaft!

Viele Grüße
TRBB