怎样改变Form中caption所在区域的颜色啊！在线 (10分)

3

3166

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #1

也就是标题栏的颜色

 

O

outer_star

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #2

procedure TForm1.FormPaint(Sender: TObject);
var
h:HDC;
c:TCanvas;
begin
h:=GetWindowDC(form1.Handle);
c:=TCanvas.Create ;
c.Handle:=h;
c.Font.Color :=clred;
c.TextOut(1,1,'ddddddd');
c.Free;
end;

 

3

3166

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #3

对不起 ，可能问的不清楚，是caption所在的区域的颜色，
有办法改变吗？

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #4

一般是没有办法的

 

P

pjessica

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #5

在窗体重画的时候用：outer_star的方法应该可以吧

 

J

jxguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #6

我想是不是可以重载祖先类的某个方法？

 

S

Skyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #7

用控件：ThemeEngine可以，或者别的啥的....

 

牛

牛角尖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #8

修改了outer_star
h:=GetWindowDC(form1.Handle);
c:=TCanvas.Create ;
c.Handle:=h;
c.Brush.Color := clred;
c.Font.Color := clWhite;
c.TextOut(20,5,'ddddddd');
c.Free;

 

X

xyf2001721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #9

h:=GetWindowDC(form1.Handle);
c:=TCanvas.Create ;
c.Handle:=h;
c.Brush.Color := clred;
c.Font.Color := clWhite;
c.FillRect(rect(0,0,width,20));
c.Free;
//哈哈，效果不好

 

L

lwowo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-11

• #10

自己画咯，想画什么样子的都行啊。