Expandierendes Fenster - ist es überhaupt möglich?

[Andreas13]

Hallo Community,

vor langer, langer Zeit, noch zu MS-DOS Zeiten, gab es eine Pascal-Bibliothek von TurboPower/Enz EDV-Beratung: „Object Professional“. Dort gab es u.a.
expandierende Fenster
im Repertoire. Ich weiß, es ist eine Spielerei...
Kann man solche Fenster heute unter Windows entwickeln, bzw. gibt es irgendwo fertige Bibliotheksroutinen dafür?
Danke für Eure Hilfe im Voraus!
Gruß
Andreas

[EWeiss]

AnimateWindow

gruss

[Andreas13]

Vielen Dank!
Gruß, Andreas

[Andreas13]

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

[EWeiss]

Mach mal ein kleines funktionierendes Beispiel dann schaue ich mir das mal an.
Ich kann nirgends erkennen das du WM_PRINT in Bezug auf AnimateWindow verwendest.

Oder siehe dir mein Projekt OTTB an.
Da kannst du entnehmen wie man es richtig macht.

Du must sicherstellen das WM_PRINTCLIENT und oder WM_PRINT behandelt wird.

gruss

[Andreas13]

Hallo,
anbei ein kleined Demo-Programm mit allen Files. Danke für Deine Hilfe!!!
Gruß, Andreas

[Andreas L.]

Zitat von Andreas13:

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!

Im MSDN steht zu AnimateWindow folgender Hinweis:

Zitat:

Avoid animating a window that has a drop shadow because it produces visually distracting, jerky animations.

Vielleicht ist das ja dein Problem?!

[EWeiss]

Zitat von Andreas L.:

Zitat von Andreas13:

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!

Im MSDN steht zu AnimateWindow folgender Hinweis:

Zitat:

Avoid animating a window that has a drop shadow because it produces visually distracting, jerky animations.

Vielleicht ist das ja dein Problem?!

Hat damit nichts zu tun AnimateWindow wird von Windows 10 nicht mehr komplett unterstützt es wird NUR noch der Clientbereich animiert.
Wenn man das halbwegs mit Caption vernünftig animieren will muss man sich einiger tricks bedienen zum Beispiel die GWL_STYLES zur Laufzeit verändern so das dass Caption erst sichtbar wird wenn die Animation abgeschlossen ist.
Oder man zeichnet sein Fenster selbst und verzichte auf die vorgefertigten Forms.

Du musst doch nur mein Beispiel laden dann siehst du doch was abgeht.
MS bietet API's an die sie selbst verändert haben und nichts mehr gemein haben mit den Aussagen in der MSDN frage mich warum der Mist nicht gelöscht wird.
Ich glaube langsam die blicken da selbst nicht mehr durch.


gruss