Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.155 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AnimateWindow(..) zerstört VCL-Stile

  Alt 24. Jul 2013, 13:20
Zum nachvollziehen:

1) Neue VCL-Anwendung
2) Projekt->Optionen->Erscheinungsbild: Beliebigen Stil hinzufügen und als Standardstil setzen
3) TButton hinzufügen und onClick:

Delphi-Quellcode:
AnimateWindow(Button1.Handle, 100, AW_HOR_POSITIVE or AW_HIDE);
   sleep(100);
   AnimateWindow(Button1.Handle, 100, AW_HOR_POSITIVE);

Siehe Bilder.


Ich kann den Button1 jetzt nehmen und Invalidate(), Repaint() oder sonstwas aufrufen, aber doof ist es trotzdem. Vor allem da es für die Dauer der Animation natürlich immer noch nicht stimmt. Gibt es einen Ausweg?
Miniaturansicht angehängter Grafiken
vorher.png   nachher.png  
  Mit Zitat antworten Zitat