Problem mit If getwindowlong()

[gabneo]

Hallo Delphi-Freunde,
ich hab da mal ne Frage irgendwie seh ich den wald vor lauter bäumen nicht.
Ich möchte abfragen, ob eine Form den GWL_EXSTYLE "layered" hat.

If not (GetWindowLong(Form19.Handle, GWL_EXSTYLE) and WS_EX_LAYERED)=WS_EX_LAYERED then showmessage('Keine Layered Form'); Aber aus irgendeinem Grund ist der Windowstyle WS_EX_LAYERED nie in dem GWL_EXSTYLE... Also liegt es entweder

1. an meiner If abfrage (was ich jetzt mal eher annehme) und ich übersehe den Fehler.
2. oder man kann den WS nicht über GWL_EXSTYLE auslesen...dann wüsste ich nicht womit sonst

Vielleicht sieht ja der eine oder andere den Fehler oder weiß Rat.
Bis dahin vielen Dank!!!
greez

[Hawkeye219]

Hallo,

der Compiler versteht deine Abfrage so:

Delphi-Quellcode:

If (not (GetWindowLong(Form19.Handle, GWL_EXSTYLE) and WS_EX_LAYERED)) = WS_EX_LAYERED then 
  showmessage('Keine Layered Form');

Das möchtest du wahrscheinlich erreichen:

Delphi-Quellcode:

If (GetWindowLong(Form19.Handle, GWL_EXSTYLE) and WS_EX_LAYERED) <> WS_EX_LAYERED then 
  showmessage('Keine Layered Form');

Gruß Hawkeye

[gabneo]

sowas...naja jetzt seh ichs auch^^
Danke!!!


[Edit]
greez
[/Edit]