怎样修改窗体标题栏的颜色?

[dinyy]

怎样修改窗体标题栏的颜色?,在线等待...

[40Star]

WM_NCPAINT

[dinyy]

40Star:请你再说的详细一点,谢谢!

[Billy_Chen28]

procedure TForm1.FormCreate(Sender: TObject);
const
cCOLOR_ACTIVECAPTION: Integer = COLOR_ACTIVECAPTION;
cCOLOR_GRADIENTACTIVECAPTION: Integer = COLOR_GRADIENTACTIVECAPTION;
clMyColor1: TColor = clRed;
clMyColor2: TColor = clBlue;
begin
SetSysColors(1, cCOLOR_ACTIVECAPTION, clMyColor1);
SetSysColors(1, cCOLOR_GRADIENTACTIVECAPTION, clMyColor2);
end;

[dinyy]

cg1120:能不能只改变当前程序的设置,而不改变整个系统的设置?

[lesstif]

var
hdc: HDC;
begin
hdc := GetWindowDC(Self);
...Draw Title
end

[dinyy]

lesstif:麻烦你写清楚一点!

[surfguy]

to: lesstif() 写清楚一点吗，要不然我们怎么学习呢。有劳了!!!!!

[dinyy]

各位老大,我已经有了一段程序,基本可以解决.

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
procedure DrawCaptButton;
procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPaint;
procedure WMSetText(var Msg : TWMSetText); message WM_SETTEXT;
procedure WMNCActivate(var Msg : TWMNCActivate); message WM_NCACTIVATE;
procedure WMNCHitTest(var Msg : TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCLButtonDown(var Msg : TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DrawCaptButton;
var
xFrame,yFrame,xSize,ySize : Integer;
R : TRect;
X : TBITMAP;
begin
xFrame := GetSystemMetrics(SM_CXFRAME);
yFrame := GetSystemMetrics(SM_CYFRAME);
xSize := GetSystemMetrics(SM_CXSIZE);
ySize := GetSystemMetrics(SM_CYSIZE);
Canvas.Handle := GetWindowDC(Self.Handle);
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 11;
Canvas.Pen.Color := clYellow;
Canvas.Brush.Color := clPurple;
try
R := Bounds(xFrame,yFrame,width-2*xFrame,ySize);
Canvas.FillRect(r);
Canvas.TextRect(R,2*xFrame,xFrame+2, 'CAPTION');
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;

procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
begin
inherited;
DrawCaptButton;
end;

procedure TForm1.WMSetText(var Msg : TWMSetText);
begin
inherited;
DrawCaptButton;
end;

procedure TForm1.WMNCHitTest(var Msg : TWMNCHitTest);
begin
inherited;
DrawCaptButton;
end;

procedure TForm1.WMNCActivate(var Msg : TWMNCActivate);
begin
inherited;
DrawCaptButton;
end;

procedure TForm1.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
inherited;
DrawCaptButton;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;

end.

[erp2]

gz

[lesstif]

var
hdc: HDC;
hb: TBrush;
begin
hdc := GetWindowDC(Self.Handle);
hb.Color := YourColor;
SelectObject(hdc, hb.Handle);
Rectangle(hdc, 0, 0, Width, TitleHeight);
....
end;

大概这样的，就是Windows GDI那一块，可以从MSDN上得到更多信息，祝您们成功