如何把RGB颜色转变成Delphi的 Tcolor?？

语法:

-------

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;