Delphi clbtnface的颜色值用6个数字代码表示应该是什么？
作者&投稿：迪详 （若有异议请与网页底部的电邮联系）
Delphi 早版本 使用Object Pascal
Delphi 高版本，使用Delphi语言
Object Pascal是Borland对Pascal语言的改进
每一次Delphi的升级，都会带来对Object Pascal的改进
在Delphi高版本，直接称之为Delphi语言
现在Delphi不只是一个语言，一个开发工具，在Codegear，Delphi已经是一个产品线名了
比如Delphi for php，根本和Delphi开发工具没有关系
Delphi 早版本 使用Object Pascal Delphi 高版本，使用Delphi语言 Object Pascal是Borland对Pascal语言的改进 每一次Delphi的升级，都会带来对Object Pascal的改进 在Delphi高版本，直接称之为Delphi语言
在 delphi 中，颜色（TColor）的在单元 UITypes 中定义如下：
除此之外，预定义了一些颜色值：
TColorRec = record
const
SystemColor = $FF000000;
// System Colors (Windows only)
cBTNFACE = 15;
SysBtnFace = TColor(SystemColor or cBTNFACE);
// Actual colors
Aliceblue = TColor($FFF8F0);
Beige = TColor($DCF5F5);
//...
end;
TColors = TColorRec;
而 clbtnface 定义在 Graphics 单元中：
由 VCL 的源代码上溯定义，可以看出：
clBtnBace 的值是 SystemColor 与 cBTNFACE 值经 or 运算后得到，即十六进制 FF00000F。
你只需要把想知道的颜色值输出成十六进制表示就可以了，比如调用IntToHex函数。
要注意，clBtnFace是系统颜色，也就是说你可以在操作系统中改变具体值的；而clRed这样的则不会变，不同的操作系统中是一样的。
是RGB值的16进制值，比如 $112233表示的是RGB($11, $22, $33)
闭邵福欣： 加上一句:BitBtn1.Glyph.TransparentColor:=clBtnFace; 就OK了. (怎么悬赏分:0 ? )
高坪区13585636004： Delphi的BitBtn控件图片无法正常显示 - ？
闭邵福欣： bitbtn控件本身设计的时候就是加系统自带的那些警告、提示啊什么小图片,对于外部图片支持不是很好,而且会自动透明颜色,图片大小也必须根据按钮大小设计,很麻烦.你如过要用的话,在form的create事件中,输入以下代码可能就好了 BitBtn1.Glyph.TransparentColor:=clBtnFace;
高坪区13585636004： delphi 新手问题 - --怎么使edit为不可用态?？
闭邵福欣： Edit1.Enabled :3D false;—————————————————————————————————MaximStr '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风.';if Not Assigned(I) then I TI.Create(Nil);I.Maxim MaximStr;I.Explain '假如上述代码中出现“OA”等字样,删除它们';I.Desire '加不加分随你';—————————————————————————————————
高坪区13585636004： 怎样在delphi中实现控件的拖拽? - ？
闭邵福欣： (*放一个 LABEL 到窗体上 , 建立 mousedown mousemove mouseup 三个事件代码如下*){$R *.dfm}var isMouseDown : boolean ; //是否拖拽 posX,posY : Integer; //拖动开始时候的坐标procedure TForm1.Label1MouseDown(Sender: TObject;...
高坪区13585636004： 我用delphi写了一个写入ini配置文件的代码,但不知道怎么读取 - ？
闭邵福欣： 在下面两个事件中写入代码,就可以达到目的:...const IniF = 'D:\Test.Ini';...procedure TForm1.FormDestroy(Sender: TObject);var ini: TIniFile; cl: TColor;begin cl := Form1.Color; ini := TIniFIle.Create(INiF); ini.WriteInteger('System', 'BackColor', cl); ...
高坪区13585636004： 怎样在DELPHI中改变菜单字体的大小???向高手请教!!!？
闭邵福欣： 设置Menu的OnwerDraw属性为true写一个通用的过程给所有的菜单项procedure TForm1.MenuDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);begin//设置字体 ACanvas.Font.Size 11; if Selected then//选中状态 ...
高坪区13585636004： 在delphi中,在运行时如何让拖动的控件显示在最上方? - ？
闭邵福欣： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; RadioButton1: TRadioButton; ...
高坪区13585636004： 用delphi编程计算三角形的面积 - ？
闭邵福欣： 1、三角形面积=1/2*底*高(三边都可做底) 2、三角形面积=1/2absinC=1/2acsinB=1/2bcsinA 3、三角形面积=abc/4R(其中R是三角形外接圆半径) 4、海伦公式: 三角形的面积的平方=p(p-a)(p-b)(p-c) p=1/2(a+b+c)
高坪区13585636004： 用delphi 遍一个求圆的面积的程序 - ？
闭邵福欣： 在form 添加两个edit 一个button procedure TForm1.Button1Click(Sender: TObject); const //常量标识符 pai=3.14; var //变量标识符 R: real; //半径变量定义 Squere: real; //面积变量定义 begin R:=strtofloat(edit1.Text); //将编辑框中字符串变量转换...
高坪区13585636004： delphi 如何将对象保存在数据库的表中,并恢复出来?？
闭邵福欣： 只能保存对象的信息.如:object Form1: TForm1 Left = 192 Top = 108 Width = 544 Height = 375 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans ...
