transparentes formular in D3

[Sprint]

Zitat von hardcorehorst:

Wie ist es möglich ein formular von D3 transparent zu machen?

http://www.delphi-fundgrube.de/faq07.htm#topic0704

[hardcorehorst]

Zitat:

Delphi-Quellcode:

Procedure MakeWindowTransparent (Form: TForm);
Var CurrentStyle : LongInt;
Begin
  Form.Visible := False;
  CurrentStyle := GetWindowLong(Form.Handle, GWL_EXSTYLE);
  SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle Or WS_EX_TRANSPARENT);
  Form.Visible := True;
End; {Paul Röttgen}

Procedure MakeWindowOpaque (Form: TForm);
Var CurrentStyle : LongInt;
Begin
  Form.Visible := False;
  CurrentStyle := GetWindowLong (Form.Handle, GWL_EXSTYLE);
  SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle And Not WS_EX_TRANSPARENT);
  Form.Visible := True;
End; {Paul Röttgen}

macht wieder das ganze form unsichtbar

Zitat:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
end;

sorgt nur dafür das es zu anfang transparent ist
beim verschieben stimmt es nicht mehr

[SirThornberry]

Zitat von hardcorehorst:

Zitat:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
end;

sorgt nur dafür das es zu anfang transparent ist
beim verschieben stimmt es nicht mehr

Also willst du das Form vollständig transparenzt haben und nicht halbdurchsichtig? (Das das Bild gar nicht durchsichtig werden soll ist klar).

[hardcorehorst]

ja genau

[SirThornberry]

Dann gehts mit folgender Funktion

Delphi-Quellcode:

function SetFormTransparent(AFormHandle: HWnd; ATransparentColor: TColor): Boolean;
const
  WS_EX_LAYERED = $00080000;
  LWA_COLORKEY = $00000001;
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, ColorToRGB(ATransparentColor), 0, LWA_COLORKEY);
    end else result := False;
    FreeLibrary(LDLLHandle);
  end else result := False;
end;

Du musst die Farbei deines Forms auf eine Farbe setzen die im Bild nicht vorkommt, und dann obige funktion mit dieser Farbe aufrufen.

Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  color := clFuchsia; //Farbe des Forms auf Rosa setzen (Rosa sollte also nicht im Bild vorkommen)
  SetFormTransparent(handle, Color); //Und dann Rosa als Transparenztsfarbe setzen
end;

[hardcorehorst]

AFormHandle durch Form1.Handle ersetzen
und....

es klappt !!!


Besten Dank für alle antworten !!!