Expandierendes Fenster - ist es überhaupt möglich?

[Andreas13]

Vielen herzlichen Dank für Deine Mühe & Hilfe!
Ich werde gleich Dein Example.zip entpacken und studieren.
Gruß, Andreas

[EWeiss]

Zitat von Andreas13:

Vielen herzlichen Dank für Deine Mühe & Hilfe!
Ich werde gleich Dein Example.zip entpacken und studieren.
Gruß, Andreas

Hier eine kleine Ausbesserung.. weil sich die Formen mit Delphi nicht dorthin setzen wo sie sollen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ConfigIni: TIniFile;
  Path: string;
  rc: TRect;
begin

  SetRect(rc, 0, 0, 532, 315); // weite und höhe selber setzen

  Left := MAX((GetSystemMetrics(SM_CXSCREEN) - rc.Right - rc.Left) div 2, 0); // selber setzen Delphi macht sonst ärger
  Top := MAX((GetSystemMetrics(SM_CYSCREEN) - rc.Bottom - rc.Top) div 2, 0);  // selber setzen Delphi macht sonst ärger

  UserAppDataDir := GetSpecialFolder(CSIDL_APPDATA);
  Path := UserAppDataDir + '\BrewIdeas\Animation\';

Sobald du die Caption aktivierst funktioniert so gut wie nichts mehr.
Sieht bald so aus als wenn die unter Win10 gar nicht mehr berücksichtigt werden und nur noch der Client Bereich animiert wird.
Selbst wenn ich anstelle von "Handle" Application.Handle übergeben also das Handle was hinter der Form steckt, geht es nicht.

gruss

[Andreas13]

Sorry, ich bin schon wieder: Mein Delphi XE5 kennt die Unit uAnimationAPI (noch) nicht...
Danke & Gruß, Andreas

[EWeiss]

Zitat von Andreas13:

Sorry, ich bin schon wieder: Mein Delphi XE5 kennt die Unit uAnimationAPI (noch) nicht...
Danke & Gruß, Andreas

ok hier der gesamte Source inclusive der DLL. (Ich lösche den anderen wieder.)
Aber vorweg Animatewindow funktioniert nicht wenn die Form ein Caption hat.

Windows 10 hat die Funktion platt gemacht.
Bei mir geht es deshalb weil ich meine Windows alle selber zeichne.

gruss

[Andreas13]

Danke!!!

[EWeiss]

Zitat von Andreas13:

Danke!!!

Kein Problem
Wie gesagt bei mir geht es 100% tig..

gruss