Ist Parentform von Frame ein Modales Form?

[bernau]

Zitat von Uwe Raabe:

Beim FormCreate kann man aber noch gar nicht wissen, ob das Form später mit Show oder ShowModal aufgerufen wird. Insbesondere ist es durchaus möglich, ein und dieselbe Form-Instanz z.B. einmal mit ShowModal und einmal mit Show aufzurufen (und noch mehrmals und auch umgekehrt). Wohlgemerkt, dieselbe Instanz! Folglich kann das im FormCreate gar nicht ausgewertet werden, weil es erst später durch deinen Code bestimmt wird. Du kannst allenfalls im FormShow darauf reagieren.

Insofern geht die Anwort in #4 schon in die richtige Richtung.

Ja. Stimmt. Zum Create-Zeitpunkt kann man nicht feststellen, ob das Form Modal ist oder nicht. Deshalb auch die Frage, wie man das anderweitig lösen kann. Allerdings ohne zusätzlichen Code (OnShow) im "Form".

Bei #4 hatte es nicht sofort bei mir klick gemacht. Ich werde damit mal etwas ausprobieren. Danke euch allen für die Hinweise.

[Uwe Raabe]

Du kannst in dem Frame die Messages CM_PARENTVISIBLECHANGED oder CM_SHOWINGCHANGED abfangen und dort das fsModal abfragen:

Delphi-Quellcode:

  TMyFrame = class(TFrame)
  private
    procedure CMPARENTVISIBLECHANGED(var Message: TMessage); message CM_PARENTVISIBLECHANGED;
// oder
    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
//  ...

procedure TMyFrame.CMPARENTVISIBLECHANGED(var Message: TMessage);
var
  isModal: Boolean;
begin
  inherited;
  isModal := (fsModal in GetParentForm(Self).FormState); // funktioniert auch wenn der Frame nicht direkt im Form sitzt sondern z.B. auf einem TPanel oder TPageControl
//  ...
end;

[bernau]

Zitat von Uwe Raabe:

Du kannst in dem Frame die Messages CM_PARENTVISIBLECHANGED oder CM_SHOWINGCHANGED abfangen und dort das fsModal abfragen:

CM_SHOWINGCHANGED > Ja perfekt. Genau das habe ich gesucht.

Und "GetParentForm" kannte ich auch noch nicht. Hatte mir zwar eine Funktion geschrieben, die sich bis zum Parentform hochhangelt, aber so ist es viel eleganter.


Danke dir.

[himitsu]

Vorallem bei eingebetteten Forms (MDI und Co.) solltst du dir aber den weiteren optionalen Parameter genauer ansehn und vielleicht ändern.

[bernau]

Zitat von himitsu:

Vorallem bei eingebetteten Forms (MDI und Co.) solltst du dir aber den weiteren optionalen Parameter genauer ansehn und vielleicht ändern.

Welcher optionale Parameter?

[Uwe Raabe]

Delphi-Quellcode:

function GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;
...

Bei MDI-Forms sind ja die MDIChilds im MDIForm eingebettet. Mit TopForm = True bekommst du dann das MDIForm, bei False das entsprechende MDIChild.

[bernau]

Ah. Danke euch beiden!