canvas random paint

[---Bernhard---]

Hi!

Der Code ist eigentlich schon richtig. Aber als erstes solltest du ihn ordentlich formatieren!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  x:integer;
  y:integer;
  Breite:integer;
  Hoehe:integer;
begin
  x:=random(450);
  y:=random(300);
  Breite:=x + random(120);
  Hoehe:=y + random(150);
  paintbox1.Canvas.Rectangle(x,y,Breite,Hoehe);
end;

Dann ruf im FormCreate "Randomize;" einmal auf, ansonsten schaut das Rechteck immer gleich aus!

Wenn es noch nicht geht, liegt es wohl an "ImBild". Was ist denn das für ein Typ/Komponente?