Delphi-PRAXiS - Delphi Top Level Layered Window?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Top Level Layered Window? (https://www.delphipraxis.net/115066-top-level-layered-window.html)

Top Level Layered Window?

Hallo zusammen!

Ich habe mich gerade mal durch die Suche hier gefräst, aber noch nicht den Stein der Weisen gefunden. Ich möchte gern ein transparentes, nicht klickbares Fenster anzeigen lassen, dass noch dazu die Klicks an die darunter liegende Form weitergibt.

Ich bin dafür per DP-Suche auf folgende Zeile gestoßen:

Delphi-Quellcode:

			setWindowLong(form1.Handle, GWL_EXSTYLE, getWindowLong(form1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
		

Diese sollte - soweit ich den damaligen Post richtig verstanden habe - eben den von mir gewünschten Effekt haben. Allerdings zeigt ein kurzer Test unter Windows XP weder Transparenz, noch "Durchklickbarkeit", sondern ein heilloses graphisches Chaos, wenn man das Fenster verschiebt.

Kennt jemand den Weg zu meinem Ziel?

Vielen Dank :)

Re: Top Level Layered Window?

Auf codeproject.com gibt es einen

Artikel, der sowas in der Art macht. Zumindest kommt ein Layered-Window raus, durch das man durchklicken kann. Ich habe zwar in dunkler Erinnerung, dass noch ein paar Anpassungen nötig waren, um auch sich ändernde Grafiken abzubilden, aber zumindest behandelt der Artikel (oder vielmehr der zugehörige Quellcode) alle wesentlichen Punkte.