PageControl问题(50分)

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #1

PageControl在没有放XPManifest之前，tabSheet颜色是和form一样的颜色，加了XPManifest1后，PageControl中的tabSheet颜色就变成白的了，怎么办？

 

L

lisa1002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #2

编译后就不会了啊~~

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #3

你试过了没有？

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #4

不会,俺试了的

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #5

浪人情哥,你用的是什么版本

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #6

delphi7

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #7

帅哥，把你的代码发给我，对了给你加分

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #8

需要代码吗?
我没加任何代码,就加了两个控件

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #9

可以，发给我，我编译看看

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #10

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.

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #11

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

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-07

• #12

谢谢，我今天回去试试，明天结帐

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #13

测试过~~ 好像不会出现LZ说的问题~
可能是其他原因~~

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #14

duxing，你是不是老刘

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #15

结了

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #16

aaa