howto make a TPageControl transparent

Listening

Hi RWilson. If you don't have the answer to that one I will begin to thinhk ythat it is not such an easy question :-(

second example with thanks to "peter below of teamB":

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls,ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    RadioButton1: TRadioButton; //component on  tabsheet1
    RadioButton2: TRadioButton; //component on  tabsheet1
    CheckBox1: TCheckBox;  //component on  tabsheet2
    CheckBox2: TCheckBox;  //component on  tabsheet2
    Memo1: TMemo;          //component on  tabsheet3
    DateTimePicker1: TDateTimePicker;  //component on  tabsheet4
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PageControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
  private
    { Private declarations }
    FOldPageCOntrolWndProc: TWndMethod;
    procedure PageControlWndProc( Var Msg: TMessage );
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 Background: TBitmap;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close
end;
 
Function TabWndProc( wnd: HWND; msg: Cardinal;
          wparam: WPARAM; lparam: LPARAM ): Integer; stdcall;
var
  canvas: TCanvas;
  x, y: Integer;
  r: TRect;
  OldTabWndProc: Pointer;
begin
  If Msg = WM_ERASEBKGND Then Begin
    // tile window background with bitmap
    Result := 1;
    GetClientRect( wnd, r );
    canvas:= TCanvas.Create;
    try
      canvas.handle := HDC( wparam );
      y := 0;
      While y < r.Bottom Do Begin
        x:= 0;
        While x < r.right Do Begin
          canvas.Draw( x, y, Background );
          Inc( x, Background.Width );
        End;
        Inc( y, Background.Height );
      End;
    finally
      canvas.handle := 0;
      canvas.free;
    end;
  End
  Else Begin
    // pass message to old window proc
    OldTabWndProc := Pointer( GetWindowLong( wnd, GWL_USERDATA ));     Result := CallWindowProc( OldTabWndProc, wnd, msg, wparam, lparam );
  End;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  Background := TBitmap.Create;
  // could load bitmap from a resource here
  Background.Loadfromfile('C:\WINDOWS\KUGELN.BMP');
 
  // subclass the tabsheets, store old window proc in GWL_USERDATA   // field of window structure
  For i:= 0 to pagecontrol1.PageCount-1 do
    SetWindowLong( pagecontrol1.Pages[i].handle, GWL_USERDATA,
      SetWindowLong(pagecontrol1.Pages[i].handle,
                    GWL_WNDPROC, Integer(@TabWndProc)));
FoldPageControlWndProc := Pagecontrol1.WindowProc;
Pagecontrol1.WindowProc := PageControlWndProc;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Background.Free;
end;

procedure TForm1.PageControlWndProc(var Msg: TMessage);
var
  canvas: TCanvas;
  x, y: Integer;
  r: TRect;
begin
  If msg.Msg = WM_ERASEBKGND Then Begin
    msg.Result := 1;
    r:= pagecontrol1.clientrect;
    canvas:= TCanvas.Create;
    try
      canvas.handle := HDC(msg.wparam);
      y := 0;
      While y < r.Bottom Do Begin
        x:= 0;
        While x < r.right Do Begin
          canvas.Draw( x, y, Background );
          Inc( x, Background.Width );
        End;
        Inc( y, Background.Height );
      End;
    finally
      canvas.handle := 0;
      canvas.free;
    end;
  End
  Else
    FOldPageControlWndProc( Msg );
end;
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;   TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  If Active Then
    Control.Canvas.Font.Style := [fsBold]
  Else
    Control.Canvas.Font.Style := [];
  Control.Canvas.Font.Color := clWhite;
  SetBKMode( control.canvas.handle, TRANSPARENT );
  Control.Canvas.TextOut( rect.left+2, rect.top+2,
                          (Control As
TPageControl).Pages[TabIndex].Caption );
end;

end.

Thanks Barry It looks like what I need.

I am going on hollidays for one week tomorrow morning (it is 10:30 pm here)
and I don't want you to wait like last time

so I will give you the points now.

If somebody has a solution on the first method, I am still client

regards,

Marc

I would never have found this one myself

:-)

cheers
i never seen a transparent pagecontrol component or code (i also looked for one a while ago)so if you find one please let me know  ;-)

have a happy holiday
Regards Barry

thanks Barry I'l not bring my computer :-))))))