NUR das Formular transparent machen

[jaschu]

Hallo!

Ich bin riesiger MacFan und versuche deshalb Miniprogramme im Mac-Design zu schreiben.

Heute: Die Lautstärkereglung vom Mac ^^

Da ist das Formular kaum noch zu sehen, während alles andere darauf voll sichtbar ist.

Habt ihr ne Idee wie ich das - möglichst einfach - hinbekommen kann?

www.a.toolsnfun.de/macvol.exe

Danke schonmal!

Jaschu

[alzaimar]

Schonmal TForm.Alphablend probiert?

[Daniel G]

Zitat von alzaimar:

Schonmal TForm.Alphablend probiert?

Kommt auf die Delphi - Version an, die er hat. Bei Delphi 5 geht's zum Beispiel nicht.

@jaschu: Bemüh' mal die Foren Suche, du müsstest in der DP genug finden.

[Christian Seehase]

Moin Daniel,

da AlphaBlend über Windows-API Aufrufe funktioniert (u.A. SetLayeredWindowAttributes), kann man es aber nachrüsten, wenn es nicht schon enthalten ist.

Es wird aber nicht, wie gewünscht, nur das Formular transparent, auch die darauf befindlichen Controls.

[SirThornberry]

genau, und da hab ich auch schon vor einiger zeit was gepostet
http://www.delphipraxis.net/internal...=337906#337906

[Daniel G]

Zitat von SirThornberry:

genau, und da hab ich auch schon vor einiger zeit was gepostet
http://www.delphipraxis.net/internal...=337906#337906

Zitat von jaschu:

Da ist das Formular kaum noch zu sehen

Heißt "kaum noch" jetzt "gar nicht mehr?"

weil, ansonsten würde es ja nicht gehen, wie Christian gesagt hast:

Zitat von Christian Seehase:

willst du das Form vollständig durchsichtig oder nur zum teil? Wenn du es nur teilweise durchsichtig haben willst dann geht das was du vor hast nicht.

[jaschu]

Ich will dem Form einen Alphawert von zum Beispiel 150 geben, wie das auch einfach mit

form1.AlphaBlendValue

funktioniert.

Nur will ich, dass einige Elemente AUF dem Formular (Labels, Images...) komplett sichtbar bleiben und net durchsichtig werden.

[jaschu]

Also hier nochmal ein Bild dazu, ich glaub daran wird es ganz gut deutlich was ich meine:

http://donzee.free.fr/aqua/20.jpg

[alzaimar]

Knifflig, aber möglich (hab ich mal so gemacht). Simuliere das Alphablend:
Am einfachsten ist es, wenn Du genau weisst, wie deine Form aussieht (z.B. eine Bitmap).
Dann machst Du folgendes:
Du brauchst eine Bitmap als Form-Hintergrund.

1. Form kurz unsichtbar machen.
2. Desktp-Bitmap holen
3. Den Original-Hintergrund deiner Form mit dem Teil des Bildschirmes, den deine Form überdeckt, vermischen. Das ist dein simulierter Alpha-Blend.
4. Form.BackgroundImage := Die unter 3 berechnete Bitmap.
5. Form wieder sichtbar machen

Tipp: Bei (3) machst Du dir noch die Mühe und verwischst den Übergang von Form.Background zum Desktop ein wenig. Das sieht dann erst richtig geil aus.

Das rufst Du bei jedem Form.OnPaint auf. Es dauert nur ca. 1/20 sek und ist kaum zu sehen. Eine andere Idee hätte ich jetzt nicht.

[jaschu]

Das is aber wohl leider alles andere als Resourcenschonend =/

Gibt da keine ander Möglichkeit?
Ne Komponente oder sowas? ^^