Verkleiner eines modalen Fenster soll gesamte Anwendung verkleinern

[hoika]

Hallo,
folgende Situation:

Ich öffne aus dem Hauptprogramm ein modales Fenster.
Dann verkleinere ich das modale Fenster.
Das Hauptfenster wird aber nicht verkleinert!

Ich kann auf das Hauptfenster klicken -> Ping.
Erst wenn ich aber Alt+Tab das Hauptfenster quasi wieder "aktiviere",
ist das modale Fenster wieder da.

Wie bekomme ich das hin, dass das Verkleinern des modalen Fensters auch das Hauptfenster verkleinert.
Das kann muss natürlich auch einige Stufen tiefer klappen:
Hauptfenster->modales Fenster1 -> modales Fenster2.

Verkleinere ich jetzt "modales Fenster2", muss ebenfalls das Hauptfenster verkleinert werden
und damit ja auch "modales Fenster1".
Bei der "Rückkehr" muss dann alles wieder beim alten sein, der Focus also auf "modales Fenster2" liegen.

[KodeZwerg]

Mit ShowWindow() und einem SW_HIDE parameter mache ich Fenster temporär komplett unsichtbar, auch von TaskBar.

[hoika]

Hallo,
ich will es ja nicht unsichtbar machen.
Aber der Ansatz passt.

[KodeZwerg]

Für Deinen konkreten Fall gibt es ja auch den SW_MINIMIZE parameter, ich habe dabei allerdings oft das problem bei modalen Fenstern das das Icon in TaskBar oder NotifyArea ist und der User da immernoch zugriff drauf hat.
Kann man aber auch per Code mit IsIconic() abfragen lassen (das wertet aus ob ein Fenster minimiert ist)

[KodeZwerg]

Ich habe hier noch was online gefunden was Du mit Sicherheit auf Deinen Fall umbasteln könntest: dim-out-the-main-form-of-an-application-when-a-modal-form-dialog-is-displayed/


Author: Žarko Gajić

Falls Seite tot geht, hier der inhalt:

Code:

Dim Out the Main Form of an Application When a Modal Form (/Dialog) is Displayed

Dim Main Form From Dialog

Dialog windows you use to display critical information to the user are, in most cases, displayed modally. A modal window (form) is the one where the application can’t continue to run until the modal window is closed. Delphi’s ShowMessage, InputBox and MessageDlg, for example, display a modal form to the user waiting for some action. Your custom dialogs are displayed using the ShowModal method of a form.

Dimmer – a device for varying the brightness of light
To emphasize the importance of a modal form and the information it presents, you could gray out the main form of the application when the modal form is activated.

Here’s how to add a dim-out effect to your main form when modal forms are waiting for the user input.

Have a main form in your application. (Or some other form you want to dim).
Add a new form to the project. This will be the “dimmer” form.
Drop the TApplicationEvents component on the main form
Handle OnModalBegin and OnModalEnd events…
The dimmer form is created at application startup – and since it is not the main form, it will not be displayed initially.

The Display procedure aligns the dimmer form above the main form and gets displayed before any modal form is shown. This happens in the ApplicationEvent’s OnModalBegin event. OnModalEnd ensures that dimmer form is hidden until needed next time.

procedure TDimmerForm.FormCreate(Sender: TObject);
begin
  AlphaBlend := true;
  AlphaBlendValue := 128;
  BorderStyle := bsNone;
end; 

The above is the OnCreate event handler for the dimmer form. By using the AlphaBlend property and the AlphaBlendValue you can make the form translucent. As it will be displayed over the main form, we want it to create the dim-out effect. BorderStyle ensures this form has no border, no caption bar, no title buttons.

The Display procedure aligns the dimmer form above the main form:

type
  TDimmerForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Display(const dimForm : TForm);
  end;
 
...
 
procedure TDimmerForm.Display(const dimForm: TForm);
begin
  with Self do
  begin
    Left := dimForm.Left;
    Top := dimForm.Top;
    Width := dimForm.Width;
    Height := dimForm.Height;
 
    Show;
  end;
end; 

Finally, handle the OnModalBegin and OnModalEnd events of the TApplicationEvents component on the main form:

procedure TMainForm.ApplicationEvents1ModalBegin(Sender: TObject);
begin
  if Assigned(DimmerForm) then DimmerForm.Display(self);
end;
 
procedure TMainForm.ApplicationEvents1ModalEnd(Sender: TObject);
begin
  if Assigned(DimmerForm) then DimmerForm.Hide;
end;
And … that’s it.

Für Dich wird vor allem das Event interessant sein hoffe ich um drauf zu reagieren.

[himitsu]

Über Screen.Forms kommst an alle Fenster,
über Application.Mainform kommt man auch von überall an Dieses dran
mit Application.Minimize/Restore kannst bestimmt was Feines machen

und vielleicht noch paar interessante Dinge für Fensterchen wären z.B. Application.Active/BringToFront/ModalLevel/DialogHandle.

[hoika]

Danke,
das schaue ich mir heute Abend mal an.