Form Halbtransparent |> Fast durchsichtig

[Oldy]

Hallo ihr.

Ich hab schon das Forum durchsucht un google schon seit 20 Minuten, habe aber leider nix gefunden
Also..
ich habe eine Form, auf der ein Bild ist,wobei die Form mit Autosize angepasst ist. Diese Form soll halbtransparent sein, also dass ich das dahinterliegende durch die Form und das Bild sehe, das Bild aber trotzdem auch noch (eben halbtransparent).
Danke schonmal :P
Mfg
Oldy

[Meflin]

Je nachdem welche Delphi-Version du einsetzt, ab Delphi 6 gibt es die Form-property AlphaBlend und AlphaBlendValue.

Diese musst du einfach auf einen gewünschten Wert setzen (zwischen 0 und 255).
http://delphi.about.com/od/graphics/l/aa022202a.htm

[Ralf Kaiser]

Zitat:

Zitat von Meflin

Diese musst du einfach auf einen gewünschten Wert setzen (z.B. 50 für 50% Transparenz).

Ist AlphaBlend nicht ein Wert von 0-255?

Dann wäre 50% ja 128!

[Meflin]

Zitat:

Zitat von Alfi001

Ist AlphaBlend nicht ein Wert von 0-255?

Dann wäre 50% aj 128!

Völlig richtig habs auch gerade angepasst ;)

[Oldy]

habe leider nur Delphi 5

[Meflin]

Dann könntest du das versuchen:
http://www.delphipraxis.net/internal...t.php?t=119359

Das Handle deiner Form bekommst du über Form.Handle ;)

[lbccaleb]

Du kannst es auch mit folgendem Code machen:

Delphi-Quellcode:

procedure MakeWindowTransparent(Wnd: HWND; Alpha: Byte);
const
  WS_EX_LAYERED = $80000;
  LWA_ALPHA     = $02;
type
  TSetLayeredWindowAttributes = function(const hWnd: HWND; crKey: Integer; bAlpha: Byte; dwFlags: Integer) : Integer; stdcall;
var
  SetLayeredWindowAttributes : TSetLayeredWindowAttributes;
  User32DLL                  : THandle;
begin
  User32DLL := LoadLibrary('User32.dll');
  if User32DLL <> 0 then
  begin
    @SetLayeredWindowAttributes := GetProcAddress(User32DLL, 'SetLayeredWindowAttributes');
    if @SetLayeredWindowAttributes <> nil then
    begin
      SetWindowLong(Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) or WS_EX_LAYERED);
      SetLayeredWindowAttributes(Wnd, 0, Alpha, LWA_ALPHA);
    end;
  end;
  FreeLibrary(User32DLL);
end;

Aufrufen tust du es dann so:

Delphi-Quellcode:

MakeWindowTransparent(Form1.Handle, 128);

Edit:
Mhh mitm Link war einer schneller ;-)

[Oldy]

ich hab beides ausprobiert und bei beiden das selbe
Keine fehlermeldung, es passiert einfach nichts..
liegts daran dass ich win 98 verwende?

[Meflin]

Zitat:

Zitat von Oldy

liegts daran dass ich win 98 verwende?

Ja. Geht erst ab Win 2000. Gibt es irgendeinen Grund, noch Win98 einzusetzen :shock:

[Matze]

Hilft dieser Code aus dem SDC:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Form1.Handle, GWL_EXSTYLE,
  (GetWindowLong(Form1.Handle, GWL_EXSTYLE) or WS_WX_TRANSPARENT));
end;

Grüße, Matze

Edit: Ach Mist, dann wird's ja komplett durchsichtig (unsichtbar). Sorry. :(