PageControl问题(50分)

  • 主题发起人 主题发起人 wulingbo2005
  • 开始时间 开始时间
W

wulingbo2005

Unregistered / Unconfirmed
GUEST, unregistred user!
PageControl在没有放XPManifest之前，tabSheet颜色是和form一样的颜色，加了XPManifest1后，PageControl中的tabSheet颜色就变成白的了，怎么办？
 
编译后就不会了啊~~
 
你试过了没有？
 
不会,俺试了的
 
浪人情哥,你用的是什么版本
 
delphi7
 
帅哥，把你的代码发给我，对了给你加分
 
需要代码吗?
我没加任何代码,就加了两个控件
 
可以，发给我，我编译看看
 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, XPMan;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
end.
 
object Form1: TForm1
Left = 309
Top = 123
Width = 650
Height = 500
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 642
Height = 473
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ImageIndex = 1
end
end
object XPManifest1: TXPManifest
Left = 312
Top = 240
end
end
 
谢谢，我今天回去试试，明天结帐
 
测试过~~ 好像不会出现LZ说的问题~
可能是其他原因~~
 
duxing，你是不是老刘
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
P
tabsheet组件(50分)
回复
2
查看
127
pacific66
P
G
在线等待！！！pageControl问题(50分)
回复
2
查看
93
Go_gou
G
Y
pagecontrol(50分)
回复
9
查看
120
ygxdha
Y
D
50分：PageControl上的TabSheet如何响应鼠标的双击事件？？？（我要像tencent浏览器一样双击时关闭当前浏览窗口），高手就帮小弟一把啊。(5
回复
6
查看
164
djrj
D
后退
顶部