您的位置:首页 > 其它

textout 在标题栏绘制文字_textout

2012-06-02 10:08 218 查看
//在标题栏绘制文字
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)
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: