内容: 将TColor换算成RGB,主要是用API函数GetRValue、GetGValue和GetBValue将TColor分解成RGB中的R、G、B三色。 GetRValue函数可将TColor分解为RGB中R的值。 语法: function GetRValue(rgb: DWORD): Byte; DWORD:RGB颜色的值。 例如,获取RGB颜色中的红色(R)值,代码如下: Caption := IntToStr(GetRValue(clRed)); 结果:255 说明: API函数GetGValue和GetBValue、GetRValue函数的作用相同,只是返回的是RGB中的G值和B值。 将TColor换算成RGB RGB颜色是电脑显示器的标准颜色,其应用十分广泛,下面的实例是将TColor换算成RGB。 程序开发步骤: (1)运行Delphi,在窗体中添加TColorBox、TBitBtn、TLabel和TEdit组件。 (2)添加如下代码: var C:Integer; R,G,B:Byte; Fcolor : Tcolor; begin FColor := ColorBox1.Selected; //获取当前所选择的颜色值 C:=ColorToRGB(FColor); //将TColor转换成RGB值 Edit1.Text := IntToStr(GetRValue(C)); //将FColor转换成RGB中的R值 Edit2.Text := IntToStr(GetGValue(C)); //将FColor转换成RGB中的G值 Edit3.Text := IntToStr(GetBValue(C)); //将FColor转换成RGB中的B值 end;