고수를 꿈꾸며 wrote:

> 가능한가요..?

> 윈도우 타이틀 색상 바꾸는 게...

> 원 색은 진한 남색인데...

> 가능하면 어떻게 바꿔요?



아래에서 Brush.Color := clActiveCaption; 부분을 바꿔보세요



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;



type

TForm1 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

// non-client paint message handler

procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);

var

ACanvas : TCanvas;

begin

ACanvas := TCanvas.Create;

try

ACanvas.Handle := GetWindowDC(Form1.Handle);

with ACanvas do

begin

Brush.Color := clActiveCaption;

Font.Name := '궁서체';

Font.Size := 9;

Font.Color := clCaptionText;

Font.Style := [fsItalic, fsBold];

TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),

Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) + 1,

'다른 폰트의 타이틀');

end;

finally

ReleaseDC(Form1.Handle, ACanvas.Handle);

ACanvas.Free;

end;

end;



end.

왼도우 디스플레이 등록정보에서 화면배색의 활성제목표시줄, 비활성제목표시줄을

이용하시면 간단합니다.



고수를 꿈꾸며 wrote:

> 가능한가요..?

> 윈도우 타이틀 색상 바꾸는 게...

> 원 색은 진한 남색인데...

> 가능하면 어떻게 바꿔요?