如何更改form的caption的颜色? 谢谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses 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. 获取 数字签名 信息 100分请教一个小程序问题! 复制表结构 简单问题(case用法) 为什么不能全屏?怪问题。 DBGridEh选择时高亮度显示问题 又要来delphi版麻烦各位了,先散点分,留个人情先,望各位老大笑纳 TNND,这算不算是软件业的悲哀。 怎样检测Query是否为空? 怎么让TDBLookupComboBox在程序开始的时候就有个值?? 请问在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.