小问题：如何取得随机颜色（请附代码）在线等待，立即送分！

Question

同上

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  c : TColor;
begin
  Randomize;
  c := RandomRange(-$7FFFFFFF-1, $7FFFFFFF);end;

Answer 2

uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
  c : TColor;
  r : TRect;
begin
  Randomize;
  c := RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
  Edit1.Text := IntToStr(c);
  Image1.Canvas.Brush.Color := c;
  r.Left := 0;
  r.Top  := 0;
  r.Right := 100;
  r.Bottom := 100;
  Image1.Canvas.FillRect(r);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  cl : TColor;
begin
  Randomize;
  cl := Random($7FFFFFFF);
  self.Color:=cl;
end;

Answer 4

谢谢“ hch_45(HCH ~ahong.net~) ”
我还想问问，能不能不产生黑色和白色呀？

Answer 5

黑色的RGB值都是0,白色的RGB值都是255.

Answer 6

为什么我一编译，就报没有声明的RandomRange？？？