delphi编程取得系统界面颜色

2016-02-19 21:30 39 1 收藏

下面是个超简单的delphi编程取得系统界面颜色教程，图老师小编精心挑选推荐，大家行行好，多给几个赞吧，小编吐血跪求~

【 tulaoshi.com - 编程语言】

　　制作程序时，被Windows的界面色彩弄得头昏眼花，设计时是一种颜色，色彩搭配得挺好的，可是到了用户手里字体却看不清楚，严重影响了程序效果，所以结合操作系统调配颜色将是令用户用得开心的不可多得的步骤：

　　下面列出了操作系统界面各部位的名称，要取得系统颜色，把参数换一下就可以了。

　　COLOR_SCROLLBAR　　　　　　滚动条
COLOR_BACKGROUND　　　　　桌面背景
COLOR_ACTIVECAPTION 　　　活动窗口标题
COLOR_INACTIVECAPTION　　　非活动窗口标题
COLOR_MENU　　　　　　　　菜单
COLOR_WINDOW　　　　　　　窗口背景
COLOR_WINDOWFRAME　　　　　窗口框
COLOR_MENUTEXT　　　　　　窗口文字
COLOR_WINDOWTEXT　　　　　3D 阴影 (Win95)
COLOR_CAPTIONTEXT　　　　　标题文字
COLOR_ACTIVEBORDER　　　　活动窗口边框
COLOR_INACTIVEBORDER　　　非活动窗口边框
COLOR_APPWORKSPACE　　　　MDI 窗口背景
COLOR_HIGHLIGHT　　　　　　选择条背景
COLOR_HIGHLIGHTTEXT　　　　选择条文字
COLOR_BTNFACE　　　　　　　按钮
COLOR_BTNSHADOW　　　　　　3D 按钮阴影
COLOR_GRAYTEXT　　　　　　灰度文字
COLOR_BTNTEXT　　　　　　　按钮文字
COLOR_INACTIVECAPTIONTEXT　非活动窗口文字
COLOR_BTNHIGHLIGHT　　　　3D 选择按钮}
var i:integer;
begin
//取得活动窗口标题颜色
i :=GetSysColor(COLOR_ACTIVECAPTION);
Label1.Caption:=颜色代码为：+IntTostr(i);
end;

来源:https://www.tulaoshi.com/n/20160219/1626318.html

上一篇： DW中鲜为人知的小秘诀
下一篇：使用Delphi开发多媒体播放音轨问题的FAQ(原创)

看过《delphi编程取得系统界面颜色》的人还看了以下文章更多>>

Delphi的TWebBrowser编程综述

标签：编程语言网络编程

Delphi3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的，而且需要自己引入，在其后的4.0和5.0中，它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东东，自然不会好到哪里去，虽说MSDN上什么都有，可是内容太过庞杂，如果没有入口...

Delphi托盘编程实战演练

标签： Delphi

在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。实战演练：一．新建一个应用程序：File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。二．定义一个全局变量： NotifyIcon:TNotifyIc...

delphi编程改变图片效果

标签：编程语言网络编程

想不想另图片有另一番效果，使用下列语句实现吧，增加两个TImage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果： procedure TForm1.Button1Click(Sender: TObject);beginImage2.Canvas.Brush.Style := bsCross;Image2.Canvas.CopyMode := cmMergeCopy;Image2.Canvas.Draw(0,0, Image...

Delphi 应用编程实例简介

标签： Delphi

1. 控制INI文件几法要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考：从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时，返回的默认值 strResult, //存...

delphi编程控制壁纸

标签：编程语言网络编程

控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性...

查看更多精彩>>