一个可以贴背景的PageControl控件,就像MSN和QQ那样显示一个可以贴图的标签抬头。
谢谢大家了???
谢谢大家了???
解决方案 »
- 请教深圳的朋友,顺便散分
- 谁有delphi 7的参考手册啊。就像。NET的csdn一样,有全部类的说明那种。
- 各位高手,请问这个是什么问题
- 客户机向服务器发送数据库数据
- 怎么在指定的数里面随机取数(随机random)
- 高手请教,,不知道怎么办?
- 50分求delphi7.0的注册码--在线等啊
- 列分组求和的问题?
- 在获取网页源码时,webBrowser的使用问题,求助谢谢!
- 在Delphi中﹐有什么簡單的方法使圖片平鋪在窗口中﹐作為底紋?
- 看indy下的HTTPClient例子,有一句不能理解,请高手点拨一下
- 请问我做以TStringList为元素的数组是Array of TStirngList还是把TStringList放到TStringList里面去?
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;
放个Image不行的。你可以看看MSN。
tanxin2005(冷血狐)
那你们老师会吗??我说的不是技术,只是想找一个控件而已。要是我有1个星期的时间我也能做一个这种控件了!!!
jinjazz(近身剪(N-P攻略))
谢谢你了!!