Delphi-PRAXiS - Delphi Problem mit If getwindowlong()

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

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Problem mit If getwindowlong() (https://www.delphipraxis.net/100622-problem-mit-if-getwindowlong.html)

Problem mit If getwindowlong()

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.

Delphi-Quellcode:

			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 :drunken:

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

Re: Problem mit If getwindowlong()

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

Re: Problem mit If getwindowlong()

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

[Edit]
greez
[/Edit]