谢谢了
解决方案 »
- 看到.NET版有人发诗,为配合,弱弱地学习一下,提前祝大家圣蛋元蛋双蛋Happy!
- 如何把网页中带<img ....>的这些标签都去掉
- dhtmledit中怎样可以查看html的源代码
- D7下创建CGI Stand-alone Executable程序,OnCreate的时候初始化一个TThreadList就出错
- 高手请进,关于inf文件......
- 凡是使用的是SQL SERVER 2000中的表,它都找不到字段,不知为何?
- 关于Combobox加载Table内容的问题!
- 我用idmessage和idpop接受到的邮件是乱码,如何解决,急?????????????
- 图片处理问题
- Delphi2010的怎么每次开机都会提示错误?
- 请问在DELPHI里怎么把数据的总和取出来保存到数据库中?
- sql server2000中NULL问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMNCPAint(var Mes : TWMNCPaint); message WM_NCPAINT;
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMNCPAint(var Mes: TWMNCPaint);
var
ACanvas : TCanvas;
begin
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Times New Roman';
Font.Size := 10;
Font.Color := clRed;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) +1,
' Your title here!');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;end.