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 //效果图: