一道delphi 程序题

来源：百度知道 编辑：UC知道 时间：2024/06/30 23:56:57
按下button，弹出inputbox，规定输入1-255，按确定后窗体颜色会根据你输入的内容而改变颜色，1－255各代表着一种颜色
我不知道怎样使1－255对应不同的255种颜色赋给窗体
只输入一次 ,楼下的方法我试过后只有黑白两色

rgb各有255中颜色范围。 0-255

procedure TForm1.Button1Click(Sender: TObject);
var
r, g, b: integer;
begin
r := strtointdef(inputbox('请输入r变量', '', ''), 0);
g := strtointdef(inputbox('请输入g变量', '', ''), 0);
b := strtointdef(inputbox('请输入b变量', '', ''), 0);
form1.Color := rgb(r, g, b);
end;

正如楼上说的 rgb 3个分量各256个值.
如果只输入一次的话
就把3个分量设置成一样.
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := strtointdef(inputbox('请输入变量(0-255)', '', ''), 0);

form1.Color := rgb(x, x, x);
end;