语法:
-------
myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue);
例子:
--------
form1.color:=rgbtocolor(255,0,0);
函数:
---------
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or
G Shl 8 Or
R;
end;
转载于:https://www.cnblogs.com/myamanda/articles/1539390.html