Formular durchsichtig machen

[mindforce]

Hi,

ich glaube so einen Code gibt es nicht.
Gibt es einen Quellcode mitdem man ein Formular Transparent machen kann?

Gruss,

Mindforce

[Bernhard Geyer]

Formular Transparent

[Mirilin]

:hi:

ja gibt es.
-> suche


mfg Tobias

[mOzZzI]

Du hast doch Delphi 2005 PE, oder nicht??

Dann benutze doch AlphaBlend...

Delphi-Quellcode:

Form1.AlphaBlend:=True;
Form1.AlphaBlendValue:=215; //Kann man ja verändern ;-)

Mfg Philipp

[mindforce]

HU! Geil!!!!!!!!!!11 :shock: Sieht ja fett aus!

Geil. Funktioniert. Aber wie geht das in Delphi 3 Pro????

// Kann man auch das Fenster unsichtbar machen OHNE das die Labels und so transparent gemacht werden?

/// Hmmm... Funzt Irgendwie nicht!!! Bleibt immer gleich. :(

[mOzZzI]

ich glaube so geht es...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

const
  WS_EX_LAYERED = $80000;
  LWA_COLORKEY = 1;
  LWA_ALPHA = 2;

type
  TSetLayeredWindowAttributes = function(
    hwnd: HWND; // handle fuers fenster
    crKey: TColor; // die farbe
    bAlpha: byte; // wert fuer die blend funktion
    dwFlags: DWORD //
    ): BOOL; stdcall;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure SetTransparentForm(AHandle: THandle; AValue: byte = 0);
var
  Info: TOSVersionInfo;
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
begin
// geht meines wissen ab win2000
  Info.dwOSVersionInfoSize := SizeOf(Info);
  GetVersionEx(Info);
  if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and
    (Info.dwMajorVersion >= 5) then
  begin
    SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32), 'SetLayeredWindowAttributes');
    if Assigned(SetLayeredWindowAttributes) then
    begin
      SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
        //und jetzt transparent zeichnen
      SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
    end;
  end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
    // 0 --> voll transparent
    // 255 --> nicht trabsparent
  SetTransparentForm(Handle, 240);

end;

end.

[mindforce]

/// Hmmm... Funzt Irgendwie nicht!!! Bleibt immer gleich.

[mOzZzI]

Naja, es gibt ja noch die schöne Suche
alphablend