AlphaBlend in anderer Anwendung?

[Mazel]

Hallo,

ist es möglich in einer anderen Anwendung AlphaBlend anzuwenden?. Ich will ein Programm erstellen mit dem ich erreichen will, dass, wenn man mit der Maus über eine fremde Anwendung geht und dann die taste ALT drückt, soll dieses Fenster Transparent sein, aber eben mit AlphaBlend, da das Fenster noch zu sehen sein soll. Ist das irgendwie möglich?

Gruß
Mazel

[Khabarakh]

Das kannst du problemlos auch auf andere Fenster anwenden, solange diese es nicht wieder verstellen.

[edit]Wenn du nur mit einem konstanten Faktor blenden willst, reicht auch SetLayeredWindowAttributes [/edit]

[Mazel]

Ich habe das nun so versucht doch es tut sich nichts:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  curpos: TPoint;
  Hwnd: THandle;

begin
  GetCursorPos(curpos);
  Hwnd:=WindowFromPoint(curpos);
  SetLayeredWindowAttributes(hwnd,clLime, 200, LWA_ALPHA);
end;

es passiert aber nichts. Was mache ich hier falsch? Oder ist das ermitteln des Handles der anderen Anweung nicht richtig gelöst?

[Khabarakh]

Das Fenster muss den Layered-WindowStyle besitzen:

Delphi-Quellcode:

// TCustomForm.SetLayeredAttribs
if (AStyle and WS_EX_LAYERED) = 0 then
  SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);

[Mazel]

Ah, danke funktioniert :thumb:

Ich hatte mich mit diesem Thema noch nie beschäftigt.


Gruß
Mazel