textout 在标题栏绘制文字_textout

//在标题栏绘制文字 
procedure TForm1.Button1Click(Sender: TObject);
var dc:hdc;
    cvs:tcanvas;
begin
  dc :=getwindowdc(handle); //取得窗体的句柄
  cvs :=tcanvas.create; //生成画布
  cvs.Handle :=dc;
  cvs.textout( 100, 8, 'my caption'); //绘制文字
  releasedc(handle,dc); //释放句柄
end;

来自为知笔记(Wiz)