Transparenz und hindurchklicken

[Nils_13]

Hi,

ich habe eine Transparenz per

Delphi-Quellcode:

setWindowLong(Handle, GWL_EXSTYLE,
      getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED);

hergestellt. Ich kann hindurchklicken, wie kann ich das verhindern ?

[Neutral General]

Du kannst doch vielleicht einfach den AlphaWert auf 1 stellen. Das Fenster ist praktisch nicht zu sehen und man kann noch draufklicken

[Khabarakh]

Von http://www.delphipraxis.net/internal...t.php?t=67522:

Zitat von Khabarakh:

Hier die versprochene Demo.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Alpha: Boolean;
begin
  Bit := TBitmap32.Create;
  LoadPNGintoBitmap32(Bit, ExtractFilePath(ParamStr(0)) + 'test.png', Alpha);

  setWindowLong(Handle, GWL_EXSTYLE,
    getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED {or WS_EX_TRANSPARENT});
  // WS_EX_TRANSPARENT macht das Fenster für Mausklicks transparent
  
  [...]

[Nils_13]

@Neutral General: Es geht doch darum, dass ich im Hintergrund noch Anwendungen und weiteres ausführen kann. Es soll aber nur tranparent sein.

@Khabarakh: geht es auch ohne Bitmap32 ?

[Khabarakh]

Zitat von Nils_13:

@Khabarakh: geht es auch ohne Bitmap32 ?

Ja. Eigentlich ging es mir nur um diese drei Zeilen:

Delphi-Quellcode:

setWindowLong(Handle, GWL_EXSTYLE,
    getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED {or WS_EX_TRANSPARENT});
  // WS_EX_TRANSPARENT macht das Fenster für Mausklicks transparent

[Nils_13]

Danke, jetzt läuft es.