如何改变form的captoin的字体类型和颜色 如何改变form的captoin的字体类型和颜色 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 只有做不到,没有想不到。procedure WMNCPAint(var Mes : TWMNCPaint); message WM_NCPAINT;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 := clCaptionText; 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; 求注解 发表一下感受 菜鸟的疑问 Free 和 Release问题,请各位教我!!! 求一具有一定难度的sql查询语句 用ServerSocket和ClientSocket组件进行文件传输的问题,大哥大姐帮忙,只有10分了 放分200恭喜 menggirl做版主 -- 云淡风清 please,help me ,very thankyou 请问如何控制ClientSocket发起连接而无法连接ServerSocket的超时时间长度!! 在使用delphi6+mssql时用一些统计函数无法实现??? MDI工具栏问题 求助!
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 := clCaptionText;
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;