Aero Glass Effekt für Delphi-Forms

[turboPASCAL]

Doch, das schon richtig.selle mal im Code folgendes um:

Delphi-Quellcode:

// uMain.pas
WM_CREATE:
      begin
        //...

        //DWM_EnableBlurBehind(_hWnd, TRUE);
        //DWM_ExtendFrameIntoClientArea(_hWnd, 50,0,0,0);
        DWM_ExtendFrameIntoAll(_hWnd); // <--<<<

        ShowWindow(_hWnd, SW_SHOWNORMAL);
        UpdateWindow(_hWnd);
      end;

// und bei:

function WinMain(hInstance: HINST; hPrevInstance: HINST;
  lpCmdLine: PChar; nCmdShow: Integer): Integer; stdcall;
var
  WndClassEx: TWndClassEx;
  msg: TMsg;
begin
  InitCommonControls;

  bsBKColor := CreateSolidBrush(RGB(0,0,0)); // <--<< die Hintergrundfarbe ändern

PS.: Apropo Delphi 2007 und SheetOfGlas, wie ist es denn da mit einem Button auf der Form ?