Wert von WS_WX_TRANSPARENT

[Shark99]

Kann mir jemand den Wert von WS_WX_TRANSPARENT verraten?

Wird z.B. hier verwendet:

http://www.swissdelphicenter.ch/de/showcode.php?id=264

[s.h.a.r.k]

Ich glaube eher es handelt sich hier um einen Schreibfehler! Das soll wohl die hier sein

Delphi-Quellcode:

WS_EX_TRANSPARENT  = 0x00000020,

-- statt dem zweiten W ein E. Findet man in der Windows-Unit.

[Bummi]

ich kenn die Implementierung und dern Konstanten nicht, der übliche Code an dieser Stelle sieht so aus

Delphi-Quellcode:

   exStyle := GetWindowLongA(handle, GWL_EXSTYLE);
   if (exStyle and WS_EX_LAYERED = 0) then
    SetWindowLong(handle, GWL_EXSTYLE, exStyle or WS_EX_LAYERED);

[s.h.a.r.k]

@Bummi: Geht der auch unter Windows 98/2000? Der Code von den Schweizern geht angeblich unter den genannten Systemen.

[Bummi]

kalt erwischt ...
mit Transparenzen habe ich mich erst seit XP beschäftigt, ich muß passen.

[s.h.a.r.k]

Yeha :mrgreen: Schadefreue ist toll -- nein, Spass! Nur irgendwo muss ja der Unterschied zwischen den beiden Codeschnipsel liegen, oder? Daher die Frage.

[Bummi]

ab Windows 2000

To create a visible-through (layered) window, we need to set the extended style WS_EX_LAYERED, and to make the window clicked-through, we need the WS_EX_TRANSPARENT extended style.

[DeddyH]

Zitat:

Zitat von Bummi

Delphi-Quellcode:

   exStyle := GetWindowLongA(handle, GWL_EXSTYLE);
   if (exStyle and WS_EX_LAYERED = 0) then
    SetWindowLong(handle, GWL_EXSTYLE, exStyle or WS_EX_LAYERED);

Wozu die If-Abfrage?

[himitsu]

http://msdn.microsoft.com/en-us/library/ff700543.aspx
die $00000020 stimmt und da unten steht auch was von Win2000

Wenn man's genauer wissen will, dann müßte man mal schauen, ob es ein Win98-PSDK/SDK gibt und dort reingucken.

[Bummi]

@DeddyH

Zitat:

Wozu die If-Abfrage?

um SetWindowLong nur aufzurufen wenn es nötig ist.