我要改标题蓝的颜色!!!!!! 还有,不能让WINDOWS改掉我的标题蓝颜色!请UP!有分! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用RICHEDIT做标题蓝??????不懂。。不可以用假的!是真正的标题蓝!是改,不是去做! 在显示图片控件的mousedown内写:if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end;可完成窗体的移动,作用和标题栏完全一样。 RX\TOOLS页上的组件TRxGradientCaption:RxGradientCaption.StartColor:= clRed; 改系统的可能恨麻烦,可能得hook api,截获系统画标题兰的函数,自己处理! 拦截WM_NCPaint消息,procedure WMNCPaint(var Msg:TWMNCPaint);message WM_NCPaint;procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);var xFrame,yFrame,xSize,ySize:Integer; R:TRect;begin inherited; xFrame:=GetSystemMetrics(SM_CXFRAME); yFrame:=GetSystemMetrics(SM_CYFRAME); xSize:=GetSystemMetrics(SM_CXSIZE); ySize:=GetSystemMetrics(SM_CYSIZE); //按钮属性调整->> Canvas.Handle:=GetWindowDC(Self.Handle); Canvas.Font.Name:='宋体'; Canvas.Font.Color:=clBlue; Canvas.Pen.Color:=clYellow; Canvas.Brush.Color:=clBtnFace; try R:=Bounds(xFrame,yFrame,Width-2*xFrame,ySize); with r do Canvas.TextRect(R,R.Left+2,R.Top,'TEST'); finally ReleaseDC(Self.Handle,Canvas.Handle); Canvas.Handle:=0; end;end;看看出来了什么!还有这些也一起拦拦住吧! procedure WMNCActivate(var Msg:TWMNCActivate);message WM_NCActivate; procedure WMSetText(var Msg:TWMSetText);message WM_SetText; procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHittest; 同意楼上WM_NCPAINT 非客户区刷新WM_NCHITTEST 非客户区测试WM_SETTEXT 设置标题 谢了!各位!liang_z(千山一刀之忍者神龟) 的方法我先试试去!分我先加了!有问题我还得回来问清楚! 入手单片机网口通讯,Delphi网络方面比较菜,请问如何入手? 编制恶意软件清除工具所遇到的问题 有没有一个字符串函数,类似left左取函数,实现从左边取几个字符啊? 关于硬盘的序列号 不放高分不行!!! Delphi调用动态库声明问题? 有谁对用delphi 开发图形软件感兴趣吗? 各位DELPHI程序员, 请问你们在面试时都要回答一些什么问题? 什么时候用showmodal? leslie模型MATLAB编程求解过程中出现: 我想在DELPHI中建立数据表,不知道用那种类型的请赐教? 我想知道,我们平时用的计算机..............
不可以用假的!是真正的标题蓝!是改,不是去做!
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
可完成窗体的移动,作用和标题栏完全一样。
RxGradientCaption.StartColor:= clRed;
procedure WMNCPaint(var Msg:TWMNCPaint);message WM_NCPaint;procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
xFrame,yFrame,xSize,ySize:Integer;
R:TRect;
begin
inherited;
xFrame:=GetSystemMetrics(SM_CXFRAME);
yFrame:=GetSystemMetrics(SM_CYFRAME);
xSize:=GetSystemMetrics(SM_CXSIZE);
ySize:=GetSystemMetrics(SM_CYSIZE);
//按钮属性调整->>
Canvas.Handle:=GetWindowDC(Self.Handle);
Canvas.Font.Name:='宋体';
Canvas.Font.Color:=clBlue;
Canvas.Pen.Color:=clYellow;
Canvas.Brush.Color:=clBtnFace;
try
R:=Bounds(xFrame,yFrame,Width-2*xFrame,ySize);
with r do
Canvas.TextRect(R,R.Left+2,R.Top,'TEST');
finally
ReleaseDC(Self.Handle,Canvas.Handle);
Canvas.Handle:=0;
end;
end;看看出来了什么!
还有这些也一起拦拦住吧!
procedure WMNCActivate(var Msg:TWMNCActivate);message WM_NCActivate;
procedure WMSetText(var Msg:TWMSetText);message WM_SetText;
procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHittest;
WM_NCPAINT 非客户区刷新
WM_NCHITTEST 非客户区测试
WM_SETTEXT 设置标题