안녕하세요. 최용일입니다.



컨트롤의 영역은 크게 두가지로 나눌수 있는데 클라이언트역역과 비클라이언트



영역이 있습니다. 폼을 예로들면 클라이언트 영역은 우리가 컨트롤들을 넣어주



는 곳입니다. 비클라이언트영역은 타이틀바, 시스템버튼, 크기조절프레임등이죠



그러니까 타이틀바도 컨트롤의 일부이며 어떤 핸들을 가지고 있지 않습니다.



타이틀바에 그림을 그리는 방법은 여러가지가 있는데 그중 제일 간단한 방법은



폼의 OnPaint이벤트에서 타이틀바에 그림을 그리는 것입니다. 여기에서 폼의



캔버스를 이용할 수는 없습니다. 폼의 캔버스는 폼의 클라이언트 영역만을 제어



하기때문에 폼전체를 제어하려면 직접 폼의 DC(Device Context)를 얻어서 API



함수를 이용해서 그려주시면 됩니다. 계속해서 움직이게 하시려면 타이머를



사용하시면 될것입니다. 이건 조금만 생각하시면 하실수 있을것입니다.



타이틀바의 크기는 GetSystemMetrics란 API함수를 사용하시면 알 수 있습니다.



FrameXSize := GetSystemMetrics(SM_CXFRAME);

ButtonXSize := GetSystemMetrics(SM_CXSIZE);



^^ 항상 즐코하세요...



unit Unit1;



interface



uses

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

StdCtrls, ComCtrls, ImgList;



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormPaint(Sender: TObject);

private

Bitmap: TBitmap;

DC: HDC;

public

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

// DC를 얻는다.

DC := GetWindowDC(Handle);

// 비트맵객체를 만들고 비트맵을 불러온다.

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('c:mybitmap.bmp');

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

// DC를 해제한다.

ReleaseDC(Handle, DC);

// 비트맵객체를 해제한다.

Bitmap.Free;

end;



procedure TForm1.FormPaint(Sender: TObject);

begin

// 폼의 타이틀바에 비트맵을 그린다.

// BitBlt함수 도움말을 참조하시고 적당한 위치에 그려주세요...

BitBlt(DC, 100, 5, 16, 16, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);

end;



end.