Auf TabSheet zeichnen

[CReber]

Delphi-Quellcode:

procedure TfrmMain.PagesDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
begin
  with Control do begin
    Canvas.Font.Name   := 'Microsoft Sans Serif';
    Canvas.Font.Size   := 12;
    Canvas.Font.Style  := [fsBold, fsItalic];
    Canvas.Brush.Color := $00FBE8DD;
    Canvas.TextOut(0, 0, 'So zeichnest du dann aufs TabSheet ;-)');
    //Canvas.Handle := GetDC(SendTo.Handle);
    //Canvas.Draw(0, 0, bmp);
  end;
  //BmpGBlur(Bmp : TBitmap; radius : Single);
end;

Geht aber auch net Oben bei meinem Problem hatte ich nur bmp.Canvas.Handle vergessen :/ Ich will irgendwie Text mit Blur auf ne Form klatschen, kriegs aber irgendwie nicht ganz hin :/