Fenster trasnparent drüber legen

[Der schöne Günther]

Transparenz eines (fremden) Fensters einstellen ist kein Problem. Rotation habe ich ehrlich gesagt aber noch nie gesehen. Stay on Top habe ich nicht im Kopf, sollte aber auch kein Problem sein.

Schaue dazu auf MSDN mal nach "Layered Windows".

[milos]

Zitat von Der schöne Günther:

Transparenz eines (fremden) Fensters einstellen ist kein Problem. Rotation habe ich ehrlich gesagt aber noch nie gesehen. Stay on Top habe ich nicht im Kopf, sollte aber auch kein Problem sein.

Schaue dazu auf MSDN mal nach "Layered Windows".

Ich bin erst seit heute wieder bei Pascal angelangt, aber müsste MSDN nicht für das .NET Frameworkt sein? Wir sind hier in der Native-Section ^^ Falls ich falsch liege, entschuldige ich mich und würde mich über einen Hinweis freuen

[lbccaleb]

Transparentes Fenster:

Delphi-Quellcode:

function SetFormTransparent(AFormHandle: HWnd; ATransparentVal: Byte): Boolean;
var ExStyle: Integer;
begin
  ExStyle := GetWindowLong(AFormHandle, GWL_EXSTYLE);
  if ((ExStyle and WS_EX_LAYERED) = 0) then //kein Layered Fenster ?
    ExStyle := ExStyle or WS_EX_LAYERED;

  if ((ExStyle and WS_EX_TRANSPARENT) = 0) then //kein "druchklickbares" Fenster ?
    ExStyle := ExStyle or WS_EX_TRANSPARENT;

  SetWindowLong(AFormHandle, GWL_EXSTYLE, ExStyle);
  result := SetLayeredWindowAttributes(AFormHandle, 0, ATransparentVal, LWA_ALPHA);
end;

Aufruf:
SetFormTransparent(Form1.Handle, 150);
Edit:
Das Microsoft Developer Network ist zu mehreren Sprachen kompatibel

[DeddyH]

Müsste nicht

Delphi-Quellcode:

SetWindowLong(AFormHandle, GWL_EXSTYLE, GetWindowLong(AFormHandle, GWL_EXSTYLE) or WS_EX_LAYERED or WS_EX_TRANSPARENT);
result := SetLayeredWindowAttributes(AFormHandle, 0, ATransparentVal, LWA_ALPHA);

dasselbe Ergebnis bringen?