Nabend!

Ich such wegen des Song Tickers für Winamp ne Möglichkeit Fenster transparent darzustellen.
Wenn ich bei Delphi nach Alphablend suche ( so heissts ja inner VCL ), dann schreiben die da imma was von Bitmaps.
Suche n Ansatz wie das zu machen ist.

Dangö schon ma

willst du ein anders Programm Transparent machen so wie es das Transparent beim TForm gibt?

Ne mein Eigenes
Ich such halt sowas wie Alphablend bei der TForm

markieren

Delphi-Quellcode:

Form.AlphaBlend := true;
Form.AlphablendValue := 100; //0 - 255

oder so ähnlich.

du suchst sowas wie transparent von TForm?
schau mal hier
http://www.delphipraxis.net/internal...=337906#337906
unter Delphi2005 solltest du das definieren der Konstanten jedoch rausnehmen können (war für D5)

Zitat von Rastaman:

Ne mein Eigenes
Ich such halt sowas wie Alphablend bei der TForm

Zitat von Matze:

markieren

Delphi-Quellcode:

Form.AlphaBlend := true;
Form.AlphablendValue := 100; //0 - 255

oder so ähnlich.

Nächstes Mal sag ich gleich von Anfang an, dass ich ohne Forms arbeite

// EDIT:

Zitat von SirThornberry:

du suchst sowas wie transparent von TForm?
schau mal hier
http://www.delphipraxis.net/internal...=337906#337906
unter Delphi2005 solltest du das definieren der Konstanten jedoch rausnehmen können (war für D5)

Das isses
Auch wenn ich nich durchsteige

naja, dann halt mal ne Erklärung. Wie bereits geschrieben war das ganze für Delphi5
Zur Zusammenfassung erstmal der Komplette Source.

zusammenfalten · markieren

Delphi-Quellcode:

function SetFormTransparent(AFormHandle: HWnd; ATransparentVal: Byte): Boolean;
const
  WS_EX_LAYERED = $00080000;
  LWA_ALPHA = $00000002;
var LStyle: Integer;
    LDLLHandle: Cardinal;
    LSetLayerdProc: function (Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;
begin
  LDLLHandle := LoadLibrary('user32.dll');
  if LDLLHandle <> 0 then
  begin
    @LSetLayerdProc := GetProcAddress(LDLLHandle, 'SetLayeredWindowAttributes');
    if Assigned(LSetLayerdProc) then
    begin
      LStyle := GetWindowLong(AFormHandle, GWL_EXSTYLE);
      SetWindowLong(AFormHandle, GWL_EXSTYLE, LStyle or WS_EX_LAYERED);

      result := LSetLayerdProc(AFormHandle, 0, ATransparentVal, LWA_ALPHA);
    end else result := False;
    FreeLibrary(LDLLHandle);
  end else result := False;
end;

Da es unter Delphi5 die Funktion "SetLayeredWindowAttributes" noch nicht gab musste diese hier mittels LoadLibrary und GetProcAddress erst eingebunden werden. Die Konstanten LWA_ALPHA und WS_EX_LAYERED gab es auch noch nicht. Wenn man all das Berücksichtigt sieht die Funktion für D2005 so aus:

markieren

Delphi-Quellcode:

function SetFormTransparent(AFormHandle: HWnd; ATransparentVal: Byte): Boolean;
var LStyle: Integer;
begin
  LStyle := GetWindowLong(AFormHandle, GWL_EXSTYLE);
  SetWindowLong(AFormHandle, GWL_EXSTYLE, LStyle or WS_EX_LAYERED);
  result := SetLayeredWindowAttributes(AFormHandle, 0, ATransparentVal, LWA_ALPHA);
end;

Ok, das vereinfacht die Sache dann doch schon "etwas"
Vielen Dank