Einzelnen Beitrag anzeigen

Der schöne Günther

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

AW: Wie kann ich eine transparente Animation über ein TControl legen?

  Alt 11. Dez 2020, 08:32
erstelle doch ein Layered Window Ontop auf deine form und sorge dafür das es immer mitwandert
wenn du diese bewegst.
Danke, das war schon einmal eine gute Idee.
Ein Top-Level-Window braucht es nicht, WS_EX_LAYERED geht auch mit Frames und Panels und so.

Das sieht dann so aus:

https://imgur.com/4RcX1yN

State of the art ist das immer noch nicht, aber vielleicht schon halbwegs brauchbar - Das Ding ist praktisch nur an einer festgelegten Farbe transparent, der PNG-Transparenzlayer ist irgendwo den Bach runter gegangen. Mir ist nichts besseres eingefallen als eine Feste Farbe als Transparenz festzulegen, deshalb sieht es wohl auch so bescheiden aus

Delphi-Quellcode:
      SetLayeredWindowAttributes(
         Handle,
         COLORREF(color),
         Byte.MaxValue,
         LWA_COLORKEY
      )
  Mit Zitat antworten Zitat