delphi绘制标题栏

WinAPI: DrawCaption
//声明:
DrawCaption(
p1: HWND; {窗口句柄}
p2: HDC; {设备环境句柄}
const p3: TRect; {矩形}
p4: UINT {选项}
): BOOL;

//p4 参数可选值:
DC_ACTIVE = 1; {使用活动标题栏颜色}
DC_SMALLCAP = 2; {使用当前小标题栏字体}
DC_ICON = 4; {使用图标}
DC_TEXT = 8; {绘制标题}
DC_INBUTTON = $10; {按下状态}
DC_GRADIENT = $20; {使用渐变色}
DC_BUTTONS = $1000; {}
--------------------------------------------------------------------------------

//举例:
procedure TForm1.FormPaint(Sender: TObject);
begin
DrawCaption(
Handle,
Canvas.Handle,
Rect(16,40,288,60),
DC_ACTIVE or DC_ICON or DC_TEXT or DC_GRADIENT
);
end;