怎样修改窗体标题栏的颜色? [问题点数：100分，结帖人dinyy]

关注 dinyy dinyy 等级：结帖率：100%	楼主发表于： 2002-06-13 13:26:55 怎样修改窗体标题栏的颜色?,在线等待... 更多0分享到：
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理回复次数：10

关注 40Star 40Star 等级：	#1 得分：40回复于： 2002-06-13 13:43:59 WM_NCPAINT
	2015年1月微软MVP申请开始啦对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

关注 dinyy dinyy 等级：	#2 得分：0回复于： 2002-06-13 14:04:51 40Star:请你再说的详细一点,谢谢!
	如果您对CSDN论坛有意见和建议请直接在本帖指教对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

: 关注; cg1120; cg1120; 等级：

#3 得分：40回复于： 2002-06-13 14:39:51

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;

社区问答第11期：关东升 Swift开发指南

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

关注 dinyy dinyy 等级：	#4 得分：0回复于： 2002-06-13 15:11:35 cg1120:能不能只改变当前程序的设置,而不改变整个系统的设置?
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

关注 lesstif lesstif 等级：	#5 得分：20回复于： 2002-06-13 15:19:42 var hdc: HDC; begin hdc := GetWindowDC(Self); ...Draw Title end
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

关注 dinyy dinyy 等级：	#6 得分：0回复于： 2002-06-13 15:31:58 lesstif:麻烦你写清楚一点!
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

关注 surfguy surfguy 等级：	#7 得分：0回复于： 2002-06-13 23:37:38 to: lesstif() 写清楚一点吗，要不然我们怎么学习呢。有劳了!!!!!
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

关注 erp2 erp2 等级：	#8 得分：0回复于： 2002-06-14 00:10:19 gz
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

: 关注; dinyy; dinyy; 等级：

#9 得分：0回复于： 2002-06-14 08:55:09

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

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.

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

关注 lesstif lesstif 等级：	#10 得分：0回复于： 2002-06-14 12:44:37 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上得到更多信息，祝您们成功
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理