已知颜色如何用Delphi求出该色的RGB分量值?

Question

我想做一个程序，用于设定窗体的颜色，想要用toolbar来定义颜色的三个RGB分量，但是希望刚执行程序时，toolbar能显示出窗体原来颜色的RGB分量，但是我不知道这三个值怎么能分别求出来，希望各位给个思路吧，谢了。
如果给出解答会追加积分
那个能不能解释一下？
result := byte(color shr 16);
shr是？

Answer 1

functuin GetRValue(color : integer) : byte;
begin
result := byte(color shr 16);
end;
function GetGValue(color : integer) : byte;
begin
result := byte(color shr 8);
end;
function GetBValue(color : integer): byte;
begin
result := byte(color);
end;

function rgb(r,g,b:byte):integer;
begin
result := (integer(r) shl 16) + (integer(g) shl 8) + integer(b);
end;本回答被提问者采纳