一个可以贴背景的PageControl控件,就像MSN和QQ那样显示一个可以贴图的标签抬头。
谢谢大家了???

解决方案 »

  1.   

    TPageControl就可以,设置image属性
      

  2.   

    郁闷TPageControl的Images属性只是能放一个图标罢了,并且还有空出来的灰色背景,我想向抬头放一个背景,让这个背景完全的覆盖这个抬头,如同MSN和QQ那样!!!
      

  3.   

    ownerdraw设为true(*  image1参考图形
    object Image1: TImage
      Left = 272
      Top = 112
      Width = 53
      Height = 22
      AutoSize = True
      Picture.Data = {
        07544269746D6170C2050000424DC205000000000000F2000000280000003500
        0000160000000100080000000000D0040000120B0000120B00002F0000002F00
        000000000000FFFFFF00DB8F8800D3756C00F7E5E300D97D6F00F0DBD800D87D
        6F00E48E7600E58F7700EFE7E400F1A07E00EDE4DF00E9D4C700EAD7CB00EBDF
        D800EBDACF00ECE2DB00E4C4AC00E5C7B000E5C8B300E6CAB600E7CDBA00E8D2
        C200EBDDD300FEFAF700E4C5AC00E4C6AE00F5DAC300F6DECA00E7D0BE00F8E6
        D700F9E9DC00FAECE100FBEFE500F4D7BE00F4D8BF00F4D9C100F5DCC600F7E1
        CE00FBF2EA00FCF5EF00F7E4D200FDF8F300FEFCFA00FFFEFD00FFFFFF000325
        2525252525252525252525252525252525252525252525252525252525252525
        2525252525252525252525252525252525250300000003012525252525252525
        2525252525252525252525252525252525252525252525252525252525252525
        2525252525252525251B03000000030123232323232323232323232323232323
        2323232323232323232323232323232323232323232323232323232323232323
        2312030000000301242424242424242424242424242424242424242424242424
        242424242424242424242424242424242424242424242424241A030000000301
        2525252525252525252525252525252525252525252525252525252525252525
        25252525252525252525252525252525251B0300000003011C1C1C1C1C1C1C1C
        1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C
        1C1C1C1C1C1C1C1C1C1303000000030126262626262626262626262626262626
        2626262626262626262626262626262626262626262626262626262626262626
        26140300000003011D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D
        1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D15030000000301
        2727272727272727272727272727272727272727272727272727272727272727
        2727272727272727272727272727272727160300000003012A2A2A2A2A2A2A2A
        2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
        2A2A2A2A2A2A2A2A2A1E0300000003011F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F17030000000301202020202020202020202020202020202020202020202020
        202020202020202020202020202020202020202020202020200D030000000301
        2121212121212121212121212121212121212121212121212121212121212121
        21212121212121212121212121212121210E0300000003012222222222222222
        2222222222222222222222222222222222222222222222222222222222222222
        2222222222222222221003000000030128282828282828282828282828282828
        2828282828282828282828282828282828282828282828282828282828282828
        2818030000000301292929292929292929292929292929292929292929292929
        292929292929292929292929292929292929292929292929290F030000000301
        2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
        2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B110300000003011919191919191919
        1919191919191919191919191919191919191919191919191919191919191919
        1919191919191919190C030000000301012C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
        2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
        010A03000000070401012D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
        2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D010106070000000802
        0401010101010101010101010101010101010101010101010101010101010101
        010101010101010101010101010101010402080000000B090503030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        030303030303030305090B000000}
    end          *)procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    var
      APoint: TPoint;
    begin
      with (Control as TPageControl).Canvas do
      begin
        FillRect(Rect);
        with Control.Canvas do
        begin
           APoint.x :=  Rect.Left;
           APoint.y :=  Rect.Top;
           Draw(APoint.x,APoint.y ,image1.Picture.Graphic);
        end;
      end;
    end;
      

  4.   

    没直接的,靠搭配应该能做出来的http://lysoft.7u7.net
      

  5.   

    zxhread(先锋) 
    放个Image不行的。你可以看看MSN。
    tanxin2005(冷血狐) 
    那你们老师会吗??我说的不是技术,只是想找一个控件而已。要是我有1个星期的时间我也能做一个这种控件了!!!
    jinjazz(近身剪(N-P攻略)) 
    谢谢你了!!