[NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

[turboPASCAL]

*kram* ...lang ist's her...


Hi,

äh, warum nicht einfach das Zeichnen des Tabsheed-Hinttergrundes "auslassen".
Das funktioniert schon aber der Nachteil ist nun das man die Controls eben
nicht auch Transparent gezeichnet werden.

Delphi-Quellcode:

function TabDlgFunc(hDlg: HWND; uMsg: DWORD; wParam: WPARAM; lParam: LPARAM): Bool; stdcall;
begin
  Result := TRUE;
  case uMsg of
    WM_COMMAND:
      begin
        if hiword(wParam) = BN_CLICKED then
        begin
          case loword(wParam) of
            1011: Messagebox(hDlg, 'Tab1', '', 0);
            1021: Messagebox(hDlg, 'Tab2', '', 0);
          end;
        end;
      end;
    WM_ERASEBKGND: ; // wParam := 0;
    else
      Result := FALSE;
  end;
end;