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