Ist Parentform von Frame ein Modales Form?

[bernau]

Ich habe ein Frame, auf dem einige Buttons sind. Dieses ist entweder auf einem Modalen "oder" einem Nicht-Modalen Form plaziert. Das Frame erzeuge ich im OnCreate des Forms.

Wenn das Frame auf einem Modalen Form ist, dann möchte ich einen bestimmten Button ausblenden.

Eigentlich ist es kein Problem herauszufinden, ob das Form Modal ist:

Delphi-Quellcode:

isModal := (fsModal in TForm(owner).FormState);

Wenn ich diesen Code aufrufe, wenn das Form erzeugt ist, dann ist es kein Problem.

Aber... dieser Code Funktioniert nicht im Create oder Afterconstruction des Frames, da das Form "noch nicht" den Modalen Status hat.

Irgendeine Idee, wie ich sonst noch im Frame herausfinden kann, ob das Form mit ShowModal aufgerufen wird?

[DeddyH]

Könnte der Ansatz funktionieren? https://www.detlef-heibing.de/progra...und-holen.html
Interessant wäre für Dich in dem Zusammenhang die Methode GetModalWindow, wenn da ein Ergebnis <> 0 herauskommt, kannst Du das Fensterhandle mit dem Deines Fensters vergleichen.

[edit] Der Code ist allerdings schon etwas älter, statt der TList kannst Du auch eine generische Variante benutzen. [/edit]

[Delphi.Narium]

Ich frag' jetzt mal, ohne wirklich Ahnung zu haben:

Du willst doch wissen, ob das Parentform modal ist, fragst aber, ob der Owner modal ist. Parent ist nicht zwingend gleich Owner.

Was passiert, wenn Du Owner durch Parent ersetzt?

Delphi-Quellcode:

isModal := (fsModal in TForm(Parent).FormState);

Klar, ggfls. muss vorher prüfen werden, ob Parent was zugewiesen wurde und wenn ja, ob das ein TForm ist.

[BerndS]

Man könnte auch OnShow oder OnActivate vom Form auf den Frame umleiten. Das wird erst aufgerufen, nachdem

Delphi-Quellcode:

    Include(FFormState, fsModal);

aufgerufen wird.

[Delbor]

Hi Bernau

Zitat:

Ich habe ein Frame, auf dem einige Buttons sind. Dieses ist entweder auf einem Modalen "oder" einem Nicht-Modalen Form plaziert. Das Frame erzeuge ich im OnCreate des Forms.

Was du da erzeugst, ist bestimmt die Frameinstanz, nicht den Frame selbst - der wird vor der ersten Form (in der Regel die Mainform) erstellt. Zu dem Zeitpunkt, wenn du nun die Form erzeugst, kannst du auf die Frameinstanz zugreifen, zB. in OnShow, und hier kannst du entscheiden, ob der Button sichtbar sein soll oder nicht.

Gruss
Delbor

[bernau]

Zitat:

Zitat von Delphi.Narium (Beitrag 1490252)

Ich frag' jetzt mal, ohne wirklich Ahnung zu haben:

Du willst doch wissen, ob das Parentform modal ist, fragst aber, ob der Owner modal ist. Parent ist nicht zwingend gleich Owner.

Was passiert, wenn Du Owner durch Parent ersetzt?

Delphi-Quellcode:

isModal := (fsModal in TForm(Parent).FormState);

Klar, ggfls. muss vorher prüfen werden, ob Parent was zugewiesen wurde und wenn ja, ob das ein TForm ist.

Das Frame wird im OnCreate des Forms erzeugt.

Delphi-Quellcode:

myFrame := TMyFrame.Create(self); 
myFrame.parent := self;

Wie du siehst, wird Parent erst im nächsten Befehl zugewiesen. Daher ist Parent im Create des Frames nil. Owner ist aber bekannt. Deshalb verwende ich owner.

Es ist ja auch nicht das Problem, an die Form zu kommen, auf dem das Frame sitzt. Die Form hat zu dem Zeitpunkt einfach noch nicht den Modal-Status. Das war mein Problem.

[bernau]

Zitat:

Zitat von Delbor (Beitrag 1490254)

Was du da erzeugst, ist bestimmt die Frameinstanz, nicht den Frame selbst - der wird vor der ersten Form (in der Regel die Mainform) erstellt. Zu dem Zeitpunkt, wenn du nun die Form erzeugst, kannst du auf die Frameinstanz zugreifen, zB. in OnShow, und hier kannst du entscheiden, ob der Button sichtbar sein soll oder nicht.

Es ist kein Problen, von der Form auf die Buttons des Frame zuzugreifen und dort Visible=False zu setzen. Diesen Code will ich mir aber sparen. Das Frame wird vielen verschiedenen Forms verwendet. Wenn ich das Ausblenden des Buttons im Frame einmal automatisiere, dann brauche ich das nicht in den vielen Forms, in dem das Frame erzeugt wird, zu machen.

[bernau]

Zitat:

Zitat von Delbor (Beitrag 1490254)

Was du da erzeugst, ist bestimmt die Frameinstanz, nicht den Frame selbst - der wird vor der ersten Form (in der Regel die Mainform) erstellt. Zu dem Zeitpunkt, wenn du nun die Form erzeugst, kannst du auf die Frameinstanz zugreifen,

Oh... Jetzt erst deinen Satz verstanden 8-)

Warum sollte ich ein Frame erzeugen, wenn es noch nicht gebraucht wird? Das Frame wird erzeugt, wenn das Form erzeugt wird, in dem es benötigt wird.

Aber das ist auch nicht das Problem :wink:

[bernau]

Zitat:

Zitat von BerndS (Beitrag 1490253)

Man könnte auch OnShow oder OnActivate vom Form auf den Frame umleiten. Das wird erst aufgerufen, nachdem

Delphi-Quellcode:

    Include(FFormState, fsModal);

aufgerufen wird.

Das müsste ich aber im Code des Forms machen. Das will ich vermeiden, da es viele Forms gibt, die das Frame verwenden. Den Code will ich einmal im Frame haben. In den Forms soll einfach nur das Frame erzeugt werden. Keine zusätzlichen Zeilen. Ich möchte Code sparen und Fehler vermeiden.

[BerndS]

Dann könnte der Frame doch im Create beim Form das OnShow Event setzen und bei Bedarf auch sichern und dann hier im Event die Prüfung machen und OnShow wiederherstellen und aufrufen, falls gesetzt.