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?
Thema durchsuchen
Ansicht
Themen-Optionen

Expandierendes Fenster - ist es überhaupt möglich?

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

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

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

  Alt 5. Jul 2019, 21:06
Vielen herzlichen Dank für Deine Mühe & Hilfe!
Ich werde gleich Dein Example.zip entpacken und studieren.
Gruß, Andreas
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

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

  Alt 5. Jul 2019, 21:15
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

Geändert von EWeiss ( 5. Jul 2019 um 21:26 Uhr)
  Mit Zitat antworten Zitat
Andreas13

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

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

  Alt 5. Jul 2019, 21:41
Sorry, ich bin schon wieder: Mein Delphi XE5 kennt die Unit uAnimationAPI (noch) nicht...
Danke & Gruß, Andreas
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#4

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

  Alt 5. Jul 2019, 21:56
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

Geändert von EWeiss ( 9. Jul 2019 um 08:29 Uhr)
  Mit Zitat antworten Zitat
Andreas13

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

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

  Alt 5. Jul 2019, 22:14
Danke!!!
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#6

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

  Alt 5. Jul 2019, 22:15
Kein Problem
Wie gesagt bei mir geht es 100% tig..

gruss

Geändert von EWeiss ( 9. Jul 2019 um 08:30 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


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 13:29 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