AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Expandierendes Fenster - ist es überhaupt möglich?

Expandierendes Fenster - ist es überhaupt möglich?

Ein Thema von Andreas13 · begonnen am 3. Jul 2019 · letzter Beitrag vom 9. Jul 2019
 
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
722 Beiträge
 
Delphi XE5 Professional
 
#4

AW: Expandierendes Fenster - ist es überhaupt möglich?

  Alt 5. Jul 2019, 17:12
Hallo again,
ich habe ein merkwürdiges Verhalten der expandierenden bzw. implodierenden Fenster beobachtet: s. dazu folgenden Code:

Delphi-Quellcode:
Procedure Explode(Form: TForm; MilliSek: Integer);
// Expandierendes Fenster beim Öffnen:
// In Ereignis: OnShow einbauen
Begin
  Winapi.Windows.AnimateWindow(Form.Handle, MilliSek, AW_CENTER);
End;{Explode}
{-----------}

Procedure Implode(Form: TForm; MilliSek: Integer);
// Implodierendes Fenster beim Schließen:
// In Ereignis: OnClose einbauen
Begin
  Winapi.Windows.AnimateWindow(Form.Handle, MilliSek, AW_HIDE OR AW_CENTER);
End;{Implode}
{-----------}

Procedure Zentrieren(Form: TForm);
// Zentriert das Formular am Bildschirm
// In Ereignis: OnShow einbauen
VAR
 Left, Top: Integer;

 Begin
    // Fenster zentrieren:
  Left:= (Screen.Width - Form.Width) div 2;
  Top := (Screen.Height - Form.Height) div 2;
  Form.Left:= Left;
  Form.Top := Top;
  Form.Position:= poDesktopCenter;
End;{Zentrieren}
{--------------}


procedure TForm1.OnShow_Animate(Sender: TObject);
begin
  // Fenster am Bildschirm zentrieren:
  Zentrieren(Form1);
  
  // Expandierendes Fenster beim Öffnen:
  Explode(Form1, 750);

  // Fokus setzen:
  Form1.SetFocus;
end;

procedure TForm1.OnClose_Animate(Sender: TObject; var Action: TCloseAction);
begin
  // Implodierendes Fenster beim Schließen:

  Implode(Form1, 350);
end;
1):
Unter Windows 7 expandiert das Fenster aus dem Nichts zu seiner endgültigen Größe.
Die Implosion verläuft analog, nur umgekehrt.
--> Verhalten: OK

2):
Unter Windows 10 wird zunächst ein durchsichtiges Fenster mit sichtbarem Rahmen & Kopfzeile erzeugt. Das Fenster expandiert aus dem Nichts in diesen durchsichtigen Rahmen bis zur endgültigen Größe hinein.
Die Implosion verläuft analog, nur rückwärts: Das Fenster stürzt in einen durchsichtigen Rahmen hinein.
--> Verhalten: UNSCHÖN!

Ist es normal, oder habe ich etwas falsch gemacht?
Oder liegt es an der Windows-10-API?
Gibt es eine Abhilfe?
Danke im Voraus!

Gruß, Andreas

Geändert von Andreas13 ( 5. Jul 2019 um 17:53 Uhr)
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz